Bonjour à tous,
Eurêka....
A force de faire et de défaire ce code, j'ai enfin trouvé.
A vrai dire je suis reparti de zéro, avec simplement le ligne de code pour
afficher une boîte de dialogue tout simple afin d'avancer petit à petit:
Sub Afficheboite
Dim oDlg As Object
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog2 )
oDlg.execute()
End Sub
Donc apparition de ma boite, il ne me restait plus qu'à ajouter un contrôle
pour afficher la date.
Après de nombreux essais, je suis arrivé à ceci pour y parvenir:
oDlg.GetControl("FormattedField1").Text = date
Dans un premier temps j'avais occulté ".Text", et cela me renvoyé l'erreur
habituel.
J'ai fait des tests avec chaque type de champs et toujours la même erreur
sauf avec "NumericField".
Si j'écrivais ceci:
oDlg.GetControl("NumericField1") = date
j'obtenais bien un résultat dans la boîte de dialogue, en occurrence "15"
(pour aujourd'hui, chiffre du jour) et rien d'autre. J'ai cherché ( et
tripatouillé) dans les propriétés du champs pour voir s'il y avait une
possibilité de formatage mais rien.
J'ai alors cherché dans les messages du forum s'il y en avait qui parlait du
formatage de la date, et je suis tombé sur un message (resté d'ailleurs
jusqu'ici sans réponse) qui s'intitule :
"Détecter retour chariot" et cette phrase : "j'arrive à récupérer le texte
saisi par getcontrol("nom").text"
J'ai testé sur mon code et miracle, c'était aussi simple que cela. Et cela
marche ainsi avec les différents types de champs.
J'ai alors choisit "FormattedField1" comme type de champs définitif car
c'est celui qui me laisse le plus de latitude pour mettre ce champs en forme
dans la boîte de dialogue.
Bon voilà pour l'instant en vous souhaitant bonne lecture.
"Pourquoi faire compliqué quand on peut faire simple" C'est pas de moi mais
ça va très bien ici.
Merci à Philippe et à Jacques pour leur aide
Bonne journée
Arnaud
----- Original Message -----
From: "BRONCHART Philippe" <[EMAIL PROTECTED]>
To: <prog@fr.openoffice.org>
Sent: Tuesday, February 14, 2006 7:18 PM
Subject: RE: [prog] Insertion date dans dialogue
Oui effectivement, il manque une déclaration de variables
Sub Main1
> >
> > Dim Dlg As Object, bibli As Object
> > Dim monDialogue As Object, exitOK As Integer
> > Dim champdate As object, UneDate as date ' ICI
> >
> > exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
> > bibli = DialogLibraries.GetByName("Standard")
> > monDialogue = bibli.GetByName("Dialog1")
> > Dlg = CreateUnoDialog(monDialogue)
> >
> >
> >
> > If Dlg.Execute = exitOK Then , Ici
> > champdate = Dlg.GetControl("Datefield1")
> >
> > UneDate = ChampDate.date ' ici
> >
> > ChampDate_AMJ(UneDate, a , m , j) ' pour formater la date
> >
> > Print J & M & A
> >
> > End if
> >
> > Dlg.Dispose
> >
> > End sub
Tiens nous au courant
Amicalement
Philippe BRONCHART
-----Message d'origine-----
De : Arnaud POUSSIER [mailto:[EMAIL PROTECTED]
Envoyé : mardi 14 février 2006 18:22
À : prog@fr.openoffice.org
Objet : Re: [prog] Insertion date dans dialogue
Bonsoir Jacques,
Un peu plus d'explication de serait pas de refus
Merci d'avance
----- Original Message -----
From: "Jacques Lenglet" <[EMAIL PROTECTED]>
To: <prog@fr.openoffice.org>
Sent: Tuesday, February 14, 2006 3:34 PM
Subject: Re: [prog] Insertion date dans dialogue
> Bonjour à tous
>
> la variable UneDate n'est pas déclarée
>
> cordialement
>
> JackL
>
> Arnaud POUSSIER a écrit :
>
> > Salut,
> > désolé mais même réponse que précédement, toujour à propos de la même
> > ligne
> > @+
> >
> > ----- Original Message -----
> > *From:* BRONCHART Philippe <mailto:[EMAIL PROTECTED]>
> > *To:* prog@fr.openoffice.org <mailto:prog@fr.openoffice.org>
> > *Sent:* Tuesday, February 14, 2006 12:50 PM
> > *Subject:* RE: [prog] Insertion date dans dialogue
> >
> > Salut Arnaud
> >
> > Il manque un If
> >
> > Sub Main1
> >
> > Dim Dlg As Object, bibli As Object
> > Dim monDialogue As Object, exitOK As Integer
> > Dim champdate As object
> >
> > exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
> > bibli = DialogLibraries.GetByName("Standard")
> > monDialogue = bibli.GetByName("Dialog1")
> > Dlg = CreateUnoDialog(monDialogue)
> >
> >
> >
> > If Dlg.Execute = exitOK Then , Ici
> > champdate = Dlg.GetControl("Datefield1")
> >
> > UneDate = ChampDate.date ' ici
> >
> > ChampDate_AMJ(UneDate, a , m , j) ' pour formater la date
> >
> > Print J & M & A
> >
> > End if
> >
> > Dlg.Dispose
> >
> > End sub
> >
>
------------------------------------------------------------------------
> >
> > *De :* Arnaud POUSSIER [mailto:[EMAIL PROTECTED]
> > *Envoyé :* mardi 14 février 2006 12:01
> > *À :* OpenOffice Prog
> > *Objet :* Re: [prog] Insertion date dans dialogue
> >
> > Salut,
> >
> > J'ai fait un test et cela me renvoi l'erreur suivante:
> >
> > Pour la ligne
> >
> > UneDate = ChampDate.date
> >
> > J'ai une Runtime Error BASIC, Variable d'objet non paramétrée
> >
> > Si quelq'un a une idée
> >
> > @+ et merci d'avance
> >
> > ----- Original Message -----
> >
> > *From:* Arnaud POUSSIER <mailto:[EMAIL PROTECTED]>
> >
> > *To:* prog@fr.openoffice.org <mailto:prog@fr.openoffice.org>
> >
> > *Sent:* Tuesday, February 14, 2006 9:23 AM
> >
> > *Subject:* Re: [prog] Insertion date dans dialogue
> >
> > Bonjour Philippe et tout les autres
> >
> > Merci pour ton info, c'est vrai que cela doit être comme tu le
> > dis dans le livre mais je suis en vacances et j'ai laissé le
> > livre à la maison, alors j'essaie de faire avec les moyens du
> > bord.
> >
> > Je fais un test
> >
> > @+ et bonne journée à tous
> >
> > ----- Original Message -----
> >
> > *From:* BRONCHART Philippe <mailto:[EMAIL PROTECTED]>
> >
> > *To:* prog@fr.openoffice.org <mailto:prog@fr.openoffice.org>
> >
> > *Sent:* Monday, February 13, 2006 10:42 PM
> >
> > *Subject:* RE: [prog] Insertion date dans dialogue
> >
> > Salut arnaud
> >
> > Si je ne me trompe pas, d'après le bouquin (Page 476) il
> > faut récupérer la date avec la propriété date !
> >
> > Sub Main1
> >
> > Dim Dlg As Object, bibli As Object
> > Dim monDialogue As Object, exitOK As Integer
> > Dim champdate As object
> >
> > exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
> > bibli = DialogLibraries.GetByName("Standard")
> > monDialogue = bibli.GetByName("Dialog1")
> > Dlg = CreateUnoDialog(monDialogue)
> >
> >
> >
> > Dlg.Execute = exitOK
> > champdate = Dlg.GetControl("Datefield1")
> >
> > UneDate = ChampDate.date ' ici
> >
> > ChampDate_AMJ(UneDate, a , m , j) ' pour formater la date
> >
> > Print J & M & A
> >
> > Amicalement
> >
> > Philippe
> >
>
------------------------------------------------------------------------
> >
> > *De :* Arnaud POUSSIER [mailto:[EMAIL PROTECTED]
> > *Envoyé :* lundi 13 février 2006 17:14
> > *À :* OpenOffice Prog
> > *Objet :* [prog] Insertion date dans dialogue
> >
> > Bonjour à tous,
> >
> > J'ai un petit problème, j'essaie de faire apparaître la
> > date du jour une boite de dialogue mais jusqu'à maintenant
> > rien ne marche, si quelqu'un à une idée
> >
> > Merci d'avance
> >
> > Voilà le code sur lequel je travail
> >
> > Sub Main1
> >
> > Dim Dlg As Object, bibli As Object
> > Dim monDialogue As Object, exitOK As Integer
> > Dim champdate As object
> >
> > exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
> > bibli = DialogLibraries.GetByName("Standard")
> > monDialogue = bibli.GetByName("Dialog1")
> > Dlg = CreateUnoDialog(monDialogue)
> >
> >
> >
> > Dlg.Execute = exitOK
> > champdate = Dlg.GetControl("Datefield1")
> >
> > End Sub
> >
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
