Re: [prog] Insertion date dans dialogue

Tue, 14 Feb 2006 03:00:52 -0800

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 -----
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 -----
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

Répondre à