 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
12 messages in org.openoffice.fr.progRe: [prog] Insertion date dans dialogue| From | Sent On | Attachments |
|---|---|---|
| Arnaud POUSSIER | Feb 13, 2006 8:13 am | |
| BRONCHART Philippe | Feb 13, 2006 1:41 pm | |
| Arnaud POUSSIER | Feb 14, 2006 12:22 am | |
| Arnaud POUSSIER | Feb 14, 2006 3:00 am | |
| BRONCHART Philippe | Feb 14, 2006 3:49 am | |
| Arnaud POUSSIER | Feb 14, 2006 5:03 am | |
| Jacques Lenglet | Feb 14, 2006 6:34 am | |
| Arnaud POUSSIER | Feb 14, 2006 9:21 am | |
| BRONCHART Philippe | Feb 14, 2006 10:18 am | |
| Jacques Lenglet | Feb 14, 2006 12:03 pm | |
| Arnaud POUSSIER | Feb 15, 2006 1:52 am | |
| BRONCHART Philippe | Feb 16, 2006 4:48 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] Insertion date dans dialogue | Actions... |
|---|---|---|
| From: | Arnaud POUSSIER (apou...@tiscali.fr) | |
| Date: | Feb 14, 2006 5:03:18 am | |
| List: | org.openoffice.fr.prog | |
ViergeSalut,
désolé mais même réponse que précédement, toujour à propos de la même ligne
@+ ----- Original Message ----- From: BRONCHART Philippe To: pr...@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:apou...@tiscali.fr] 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
To: pr...@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
To: pr...@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:apou...@tiscali.fr] 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