Bonsoir Arnaud
désolé, par exemple tu complètes la ligne
Dim champdate As object
comme suit
Dim champdate As object, UneDate As object
cordialement
Arnaud POUSSIER a écrit :
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]
