gmane.comp.openoffice.devel.french

[fr-prog] AUTO : Michel GRIMAULT est absent du 15/07/2011 au 10/08/2011 compris. (retour 11/08/2011)

2011-08-05T08:00:53

Je suis absent(e) du bureau jusqu'au 11/08/2011

En cas d'urgence, vous pouvez contacter Pierre MONBOUSSIN au
02-99-54-61-65.
Si votre message concerne le projet SIPRES (feuiilles de calcul), merci de
faire transiter votre mail par la BALF projet SIPRES.
A bientôt.


Remarque : ceci est une réponse automatique à votre message  "[fr-prog]
Bo�tes de dialogue" envoyé le 5/8/11 5:46:22.

C'est la seule notification que vous recevrez pendant l'absence de cette
personne.--
------------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscribe< at >fr.openoffice.org
For additional commands, e-mail: sympa< at >fr.openoffice.org with Subject: help

[fr-prog] Bo�tes de dialogue

2011-08-05T03:46:22

Bonjour à tous les amateurs de BASIC
J'ai rédigé un document à l'usage des programmeurs d'applications en
BASIC SUN ayant pour sujet les boîtes de dialogues.
Il comprend quatre chapitres :
1 - Conception des boîtes de dialogue
2 - Gestion des éléments par un programme BASIC
3 - Démonstration intégrée au document
4 - Références API
Ce document va plus loin que toutes les publications que j'ai
consultées dans la documentation OOo, d'une part parce qu'il est basé
sur la version 3.3 et d'autre part parce que je donne les références
des documents API qui m'ont permis de trouver  les méthodes et
propriétés utilisées dans le BASIC (merci à Xray)
J'ai transmis ce document sur doc-subscribe< at >fr.openoffice.org le
26/07/2011.
Sera-t-il incorporé un jour dans un How To ?
Quelqu'un est-il intéressé ? 
Cordialement 
A. Rimbert
--
------------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscribe< at >fr.openoffice.org
For additional commands, e-mail: sympa< at >fr.openoffice.org with Subject: help

[fr-prog] Calc depuis la version 3.3.0

Jean-Marc Delmas — 2011-05-29T18:16:41

Bonsoir à tous,

Je ne me suis pas précipité sur la version 3.3.0 d'OO. Je l'ai installée ce 
Week-End.

Si la 3.1.1 avait introduit quelques changements mineurs dans les fonctions 
INDIRECT et ADRESSE de Calc, il semble qu'une modification autrement plus 
génante ait eu lieu pour cette version.

J'ai remarqué un changement de comportement de Calc a contrario de toutes les 
habitudes des utilisateurs classiques de tableurs.
Ainsi, il est fréquent que dans des formules les utilisateurs ajoutent, 
soustraient, multiplient ou divisent entre elles des valeurs numériques avec 
des valeurs textuelles. Il ne s'agit pas des opérations dont les programmeurs 
C ou C++ ont l'habitude, mais d'une convention, non écrite semble-t-il, qui 
veut que les valeurs textuelles soient interprétées comme 0. Ainsi une 
formule "=A1+2" vaut :
5 si A1 contient 3,
2 si A1 contient une entête comme "Résultat"

Je sais que cela revient à ajouter choux et carottes, mais il ne me semble pas 
que les informaticiens soient habilités à forcer l'usage d'une rigueur 
mathématique à des utilisateurs dont ce n'est pas le souci premier. Ceci 
d'autant plus que la susdite convention non seulement leur convenait 
parfaitement depuis 20 ou 30 ans, mais que l'usage systématique de tests de 
numéricité a pour facheuse conséquence de rendre les formules inutilement 
compliquées et plus lourdes à calculer.

Ne pourrions nous pas faire machine arrière sur ce sujet et revenir à ce 
standard de fait encore respecté par les autres tableurs ? Nous singulariser 
ne paraît pas une idée lumineuse, mais plutôt la marque du manque de 
souplesse d'un idéologue passionné de l'orthodoxie numérique.

Au demeurant ce changement est inutile car il existe un palliatif qui 
transforme la formule "=A1+2" en "=SOMME(A1)+2" et qui a l'avantage de 
conserver le comportement cher aux utilisateurs puisque SOMME(A1) vaut :
3 si A1 contient 3,
0 si A1 contient une entête comme "Résultat"
Mais au prix d'une lourdeur inutile et surtout sans justification théorique 
(que vient faire une somme là où elle n'additionne rien ?)

Cordialement à tous
Le mieux est l'ennemi du bien
Jean-Marc
--

Dessin sous Calc

xavier roguiez — 2011-02-05T17:12:47

Bonsoir

Je trace un dessin avec une fonction qui se met automatiquement à jour
quand on modifie les données dans le tableur. Cette fonction marche pour
l'instant mais je cherche à récupérer les coordonnées de la cellule où
j'ai écrit l'appel de la fonction ?

Est ce possible ?

D'avance merci
xavier

Server COM

Sauveur CONSALVI — 2011-01-10T16:53:02

Bonjour,
Mon environnement : Windows 7 édition intégrale Version 601
Visual Studio 2008 Professional Edition
OpenOffice.Org 3.2.1
J'ai réussit à manipuler, en basic, des documents texte et des classeurs, mais 
dans tous les cas, chaque fois que je copie du code où il y a une instruction 
du type :
Nom = com.xxxxxx
J'ai le signale d'erreur "COM n'est pas déclaré"
Il manque certainement quelque chose à mon environnement, mais quoi ?
Merci de votre aide

Insérer dynamiquement une image dans un document texte

Sauveur CONSALVI — 2011-01-09T00:35:30

Bonjour,
Mon environnement : Windows 7 édition intégrale Version 601
Visual Studio 2008 Professional Edition
OpenOffice.Org 3.2.1

J'ai trouvé des exemples pour insérer dynamique des images dans une feuille de 
classeur, mais je ne trouve rien pour un document texte !
Je sais insérer du texte sur un signet (BookMark)
Je pense qu'il faut convertir en objet image une adresse URL, et ensuite 
coller cette image
Mais quelle est la syntaxe ?
Merci d'avance
SC

Pb de recherche dans calc

open-office — 2011-01-06T16:40:37

Bonjour,

Je vais essayer d'être claire
Dans un tableau calc, je crée une macro qui recherche des noms avec le 
code suivant (merci la communauté, je l'ai trouvé sur le site)

/Cherche = maZone.createSearchDescriptor
with Cherche
  .SearchString = "toto"
   .SearchWords = false
end with
trouve = maZone.findAll(Cherche)
if IsNull(trouve) then
    msgbox "non trouvé"
    exit sub
endif

msgbox "Nombre d'occurrences : " & trouve.Count/

Mon problème est que si dans mon fichier j'ai toto et toto2 et que je 
recherche toto il ne me trouve que le premier, idem si j'ai deux fois 
toto, alors que si je cherche tot il me trouve bien les deux.

Y-a-t-il un paramètre à rajouter pour que lorsque je cherche toto je 
trouve toutes les  occurrences de "toto" ?

merci

suppression noeud dans style.xml

Maxime — 2011-01-06T14:33:02

Bonjour,

Pouvez vous me dire comment je peux supprimer (en php) le noeud qui encapsule
l'entete et pied de page <office:master-styles> ... </office:master-styles>

Merci d'avance


Maxime

Visual Studio 2008 et OpenOffice

Sauveur CONSALVI — 2011-01-06T11:13:10

Bonjour,
Mon environnement : Windows 7 édition intégrale Version 601
Visual Studio 2008 Professional Edition
OpenOffice.Org 3.2.1

J'ai téléchargé sur le site d'OpenOffice un projet VB.NEt qui donne des 
exemples de manipulation d'OpenOffice.
Quand je lance l'exécutable qui est dans le répertoire \bin\Debug L'exécution 
est correcte.
Quand j'ouvre ce projet sous Visual Studio 2008, celui-ci lance une conversion 
car il trouve que le projet est fait dans une version antérieure de Visual 
Studio.
(J'ai pourtant à l'origine un fichier de solution .SIN est les FORMS sont des 
fichiers .DESIGNER.VB, .RSX et .VB)
Je ne comprends pas très bien le résultat de la conversion.
Mais à l'exécution, j'ai les erreurs suivantes :

Pour le code :
Dim OpenOffice As Object
        Try
            OpenOffice = OpenOffice.createInstance
("com.sun.star.frame.Desktop")
        Catch erreur As Exception
            OpenOffice = Nothing
            MessageBox.Show("ConnectOpenOffice - Erreur : " & erreur.Message & 
vbCrLf & vbCrLf & erreur.Source)
            Exit Sub
        End Try
J'ai l'erreur :
Variable objet ou variable d'un bloc With non définie

Pour le code :
Dim OpenOffice As Object
        Try
            OpenOffice = CreateObject("com.sun.star.ServiceManager")
        Catch erreur As Exception
            OpenOffice = Nothing
            MessageBox.Show("ConnectOpenOffice - Erreur : " & erreur.Message & 
vbCrLf & vbCrLf & erreur.ToString)
            Exit Sub
        End Try
J'ai l'erreur :
Impossible de créer le composant ActiveX.
(Le message d'erreur met du temps pour apparaitre)

J'ai téléchargé un document .Doc qui contient des macros qui lance la même 
exécution que le projet VB.NET, et celles-ci fonctionnent J'ai le même 
résultat, correct, que lorsque je lance l'exécutable qui est dans le 
répertoire \bin\Debug du projet VB.
Ces macros sont en VBA :
Option Explicit

Public OpenOffice As Variant, StarDesktop As Variant
Public OOoIntrospection As Variant, OOoDisp As Variant

Sub ConnectOpenOffice()
  If IsOpenOfficeConnected Then Exit Sub
  Set OpenOffice = CreateObject("com.sun.star.ServiceManager")
  If isNullEmpty(OpenOffice) Then
    Err.Raise vbObjectError + OOoErrorN, "OpenOffice", OOo_connectKO
  Else
    Set StarDesktop = CreateUnoService("com.sun.star.frame.Desktop")
    Set OOoIntrospection = CreateUnoService("com.sun.star.beans.Introspection")
    Set OOoDisp = CreateUnoService("com.sun.star.frame.DispatchHelper")
  End If
End Sub

Quelle est mon erreur ?
Merci d'avance

Delphi 2009 + Calc

Robert Greborio — 2010-12-29T16:36:35

Avec OpenOffice 2.1 j'arrivais sans problème à remplir les tableaux. Depuis la 
version 3 ceux-ci ne sont plus affichés et il n'y a pas de message d'erreur!
Je n'en comprend pas le motif!!

Function SendToOpenOffice:Integer;
Var
  MyDoc:Variant;
  Tls:Boolean;
  Titre:String;
  Symb,ValMax,ValMin,SymbChar:String;
  i,Row:Integer;
Begin
  Result:=0;
  ConnectOpenOffice;
  MyDoc:=Unassigned;
  MyDoc:=StarDesktop.CurrentComponent;
  if isNullEmpty(MyDoc)=False then
  Begin
    StartRow:=StartRow+3;
    Row:=0;
    Tls:=ToolsIni;
    For i:=0 To Symbol.Count-1 do
    begin
      Symb:=Symbol.Strings[i];
      SymbChar:=ExtractSymbol(Symb);//Only symbol
      Symb:=CleanDt(Symb); //Only data
      ValMin:=''; ValMax:='';
      if (Symb<>'weight') and (Symb<>'lnote') then
      begin
        Result:=WriteCell(MyDoc,StartCol+IntToStr
(StartRow+Row),SymbChar);//First column
        If Result=1 Then SendLog('Unable to write '+SymbChar);
        ValMax:=ExtractMax(Symb);
        if ValMax<>'' then
        Begin
          Result:=WriteCell(MyDoc,B+IntToStr(StartRow+Row),ValMax);
          If Result=1 Then SendLog('Unable to write '+ValMax);
        End;//End second column
        ValMin:=ExtractMin(Symb);
        if ValMin<>'' then
        Begin
          if ValMin[1]='-'  then Delete(ValMin,1,1);
          Result:=WriteCell(MyDoc,C+IntToStr(StartRow+Row),ValMin);
          If Result=1 Then SendLog('Unable to write '+ValMin);
        End; //End tirth column
        If Tls Then
        Begin
          if Tools.ReadString('Tools',Symb,'')<>'' then
          Begin
            Result:=WriteCell(MyDoc,ToolsCol+IntToStr
(StartRow+Row),Tools.ReadString('Tools',Symb,''));
            If Result=1 Then SendLog('Unable to write '+Tools.ReadString
('Tools',Symb,''));
          End;
        End;//End Tls
        Inc(Row);
      end;//End Symb
    end;//End For
    Titre:=GetTitle;
    Result:=WriteCell(MyDoc,TitleCol+IntToStr(TitleRow),Titre);
    If Result=1 Then SendLog('Unable to write '+GetTitle);
    WriteFooter(MyDoc,'Print from Screws< at >2000 of GSE Sas');
    MyDoc:=Unassigned;
    FreeAndNil(Tools);
    FreeAndNil(Symbol);
  End Else
  Begin
    SendLog('Unable to open Report.ods');
    Result:=1;
  End;
End;

Ou ConnectOffice est:

Procedure ConnectOpenOffice;
begin
  if IsOpenOfficeConnected=True then exit;
  Application.ProcessMessages;
  OpenOffice:=CreateOleObject('com.sun.star.ServiceManager');
  if isNullEmpty(OpenOffice) then Raise EOOoError.Create(OOo_connectKO);
  StarDesktop:=CreateUnoService('com.sun.star.frame.Desktop');
  SpreadSheet:=CreateUnoService('com.sun.star.sheet.SpreadsheetDocument');
end;

et WriteCell:

Function WriteCell(MyDoc:Variant;CellPos,Text:String):Integer;
var
  Sheet,Cell: Variant;
  c:Char;
  i,r:Integer;
begin
  Result:=0;
  c:=CellPos[1];
  Delete(CellPos,1,1);
  r:=StrToInt(CellPos);
  if c='A' then i:=0;
  if c='B' then i:=1;
  if c='C' then i:=2;
  if c='D' then i:=3;
  if c='E' then i:=4;
  if c='F' then i:=5;
  Sheet:=MyDoc.Sheets.getByName('Screws_2000');
  if isNullEmpty(Sheet)=False then
  Begin
    Cell:=Sheet.getCellByPosition(i,r);//Avant getCellRangeByName(CellPos);
    Cell.String:=Text;
  End Else
  Begin
    Result:=1;
  End;
end;

Perte des updates d'une base de donnée

2010-12-20T07:19:25

Accusé de réception
                                                                           
   Votre      [prog] Perte des updates d'une base de donnée                
   document                                                                
   :                                                                       
                                                                           
   a été      Hervé SION/Mairie                                            
   reçu                                                                    
   par :                                                                   
                                                                           
   le :       20/12/2010 08:19:28

Perte des updates d'une base de donnée

2010-12-17T12:38:30

Accusé de réception
                                                                           
   Votre      [prog] Perte des updates d'une base de donnée                
   document                                                                
   :                                                                       
                                                                           
   a été      m.grimault< at >cnafmail.fr                                       
   reçu                                                                    
   par :                                                                   
                                                                           
   le :       17/12/2010 13:39:00

Perte des updates d'une base de donnée

2010-12-17T12:18:37

Accusé de réception
                                                                           
   Votre      [prog] Perte des updates d'une base de donnée                
   document                                                                
   :                                                                       
                                                                           
   a été                                                                   
   reçu                                                                    
   par :                                                                   
                                                                           
   le :       17/12/2010 13:18:38

Perte des updates d'une base de donnée

Martin Blaizot — 2010-12-17T11:55:28

Bonjour à tous,


J'ai développé une petite appli pour la gestion du centre équestre dont je suis le trésorier, mais je ne suis pas le seul à utiliser cette appli. quand je suis passé hier, j'ai constaté que tout le travail de l'utilisateur précédent avait été "perdu". Pourtant, après enquête, tout semble s'être passé normalement, pas de plantage; les factures était bien éditées, mais absentes de la base de donnée.

Quelqu'un aurait-il déjà rencontré ce genre de problème ? ( un problème de fermeture d'Ooo peut-être ? )

D'avance merci pour vos éclaircissements,


Martin

POUR MACRO ?????

2010-12-01T11:22:31

Accusé de réception
                                                                           
   Votre      [prog] POUR MACRO ?????                                      
   document                                                                
   :                                                                       
                                                                           
   a été      Hervé SION/Mairie                                            
   reçu                                                                    
   par :                                                                   
                                                                           
   le :       01/12/2010 12:22:32

POUR MACRO ?????

Stéphane PURNELLE — 2010-11-30T08:40:33

Return Receipt
                                                                           
   Your       [prog] POUR MACRO ?????                                      
   document:                                                               
                                                                           
   was        stephane.purnelle< at >corman.be                                  
   received                                                                
   by:                                                                     
                                                                           
   at:        30/11/2010 09:41:56

POUR MACRO ?????

petiot — 2010-11-29T17:30:14

BONJOUR JE CHERCHE A MODIFIER LES MACROS OFFICE"EXCEL" POUR LES UTILISER AVEC OPEN OFFICE MAIS JE N EST PAS TOUS LES MOTS QU IL FAUT EXIST T IL UN CITE PARTICULIER

MERCI DE VOS REPONSES

Pb avec InsertString

PREF31 Open-Office — 2010-11-25T07:48:50

Bonjour,

Je suis en train de me familiariser avec la programmation des macros Ooo 
à l'aide des excellents exemples trouvés sur le site

J'ai un petit souci avec la macro qui insère un en-tête. Dans la doc il 
est dit que le troisième paramètre de insertString détermine le 
remplacement ou non du texte déjà existant.
Or dans la macro qui suit que je mette

Texte2.insertString(Curseur2, "Voici un en-tête", false
ou
Texte2.insertString(Curseur2, "Voici un en-tête", true)

Le résultat est le même le texte se met bien en en-tête mais en début de 
l'en-tête déjà présente. Y a-t-il un autre paramètre à initialiser?

Merci de vos réponses

Claude


Texte de la macro :

Option Explicit

Sub InsererUnEnTete()
Dim monDocument As Object
Dim monTexte As Object, monCurseur As Object
Dim   Texte2 As Object,   Curseur2 As Object
Dim nomStyleMaPage As String, StyleMaPage As Object
Dim lesStylesPage As Object
monDocument = ThisComponent
monTexte = monDocument.Text
monCurseur = monTexte.createTextCursor
' récupérer le nom du style de page en cours
nomStyleMaPage = monCurseur.PageStyleName
print "Cette page est du style : " & nomStyleMaPage
' récupérer la collection de styles de pages
lesStylesPage = monDocument.StyleFamilies.getByName("PageStyles")
' récupérer le style de la page en cours
StyleMaPage = lesStylesPage.getByName(nomStyleMaPage)
With StyleMaPage
  .HeaderIsOn = true ' insérer un en-tête
  .HeaderBodyDistance = 1000 ' 10 mm
  .HeaderHeight = 2500 ' 25mm
  Texte2 = .HeaderText ' zone de texte de l'en-tête
End With
Curseur2 = Texte2.createTextCursor ' curseur dans l'en-tête
' écrire un texte dans l'en-tête
Texte2.insertString(Curseur2, "Voici un en-tête", false)
End Sub

Amélioration d'une macro existante permettant l'envoi par courriel du document en cours et toujours à la même adresse

Caroline BERTRAND-DE LORENZO — 2010-11-24T16:04:07

Bonjour,

Vous trouverez en pièce jointe un fichier que je souhaite améliorer mais mes connaissances ne me le permettent pas. Lorsque l'on clique sur le premier bouton 'envoyer par courriel', je souhaiterais que le client de messagerie affiche automatiquement l'adresse du destinataire (qui est tjs la même), à savoir hotline< at >ville-dijon.fr.

Est-ce possible et, dans l'affirmative, l'un d'entre vous pourrait-il m'aider svp ?

Avec mers remerciements.

Cldt.

Caroline BERTRAND DE LORENZO

---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscribe< at >fr.openoffice.org
For additional commands, e-mail: prog-help< at >fr.openoffice.org

" Session is closed "

Martin Blaizot — 2010-09-24T07:08:34

Bonjour à tous,


J'ai un problème récurent, apparemment aléatoire  ( bien que cela ne soit sûrement pas le cas ), avec mes bases de données. J'ai de temps en temps, lorsque je fais tourner ma macro préférée, le message suivant : Access is denied : Session is closed.  La signification est assez explicite : je ne peux plus me connecter à mes bases de données ( même dans l'explorateur par la touche F4 ). Il faut que je ferme tous les documents Ooo ouverts et que je relance le tout.

Cela ne se produit jamais lorsque qu'un utilisateur Lambda fait tourner ma petite apli., mais toujours quand je suis en train de développer, après un plantage du à un nouveau bug ( mais ce n'est pas systématique ).

Quelqu'un à-t-il déjà rencontré ce message d'erreur ? 


Je suis sous Win XP, Ooo 3.2.1.


D'avance merci,

Martin

Probleme avec le ConfigurationProvider dans la 3.3

Didier Dorange-Pattoret — 2010-09-18T12:31:00

Bonjour,

J'ai un pb avec les macros ci-dessous qui fonctionnaient bien jusqu'a la
3.2.1:


/Sub Main
cNodePath = ".org.openoffice.Office/Addons/AddonUI/OfficeToolbar"   
bWriteAccess = True
GetConfigAccess(cNodePath,bWriteAccess)
End Sub


Function GetConfigAccess( ByVal cNodePath As String,ByVal bWriteAccess
As Boolean,Optional bEnableSync,Optional bLazyWrite) As Object
    If IsMissing(bEnableSync) Then     bEnableSync = True
    If IsMissing( bLazyWrite ) Then bLazyWrite = False
    Dim oConfigProvider, oConfigAccess as Object
    oConfigProvider =
GetProcessServiceManager.createInstanceWithArguments("com.sun.star.configuration.ConfigurationProvider",Array(
MakePropertyValue( "enableasync", bEnableSync)))
    If bWriteAccess Then
        cServiceName =
"com.sun.star.configuration.ConfigurationUpdateAccess"
    Else
        cServiceName = "com.sun.star.configuration.ConfigurationAccess"
    EndIf
    oConfigAccess = oConfigProvider.createInstanceWithArguments(
cServiceName, Array( MakePropertyValue( "nodepath", cNodePath ),
MakePropertyValue( "lazywrite", bLazyWrite )))
    GetConfigAccess() = oConfigAccess
End Function


Function MakePropertyValue( Optional cName As String, Optional uValue )
As com.sun.star.beans.PropertyValue
    Dim oPropertyValue As New com.sun.star.beans.PropertyValue
    If Not IsMissing( cName ) Then
        oPropertyValue.Name = cName
    EndIf
    If Not IsMissing( uValue ) Then
        oPropertyValue.Value = uValue
    EndIf
    MakePropertyValue() = oPropertyValue
End Function/

Le paramètre "enableasync" semble invalide, contrairement à ce que dit
le SDk pour la 3.3.

On peut tester avec
cNodePath = ".org.openoffice.Office/Addons/AddonUI/OfficeToolbar"
/bWriteAccess = True

Merci pour vos réponses.
/