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]