RE: [prog] Insertion date dans dialogue - BRONCHART Philippe - org.openoffice.fr.prog

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:	BRONCHART Philippe (phil...@laposte.net)
Date:	Feb 16, 2006 4:48:38 am
List:	org.openoffice.fr.prog

Bonjour Arnaud

Si tout le monde pouvait nous faire une synthèse aussi claire à chaque fois, ce serait génial ...

Toutefois, il me semble avoir lu que dans ce cas, la réponse et la synthèse doivent apparaître sous la forme :

RE: [prog] Insertion date dans dialogue [résolu]

Si ça peut faire avancer le shimilshmiliblick .......

Bonne journée

Amicalement

Philippe BRONCHART

Ex VBA en phase d'apprentissage ...

-----Message d'origine----- De : Arnaud POUSSIER [mailto:apou...@tiscali.fr] Envoyé : mercredi 15 février 2006 10:53 À : OpenOffice Prog Objet : Re: [prog] Insertion date dans dialogue

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

----- Original Message ----- From: "BRONCHART Philippe" <bron...@gmail.com> To: <pr...@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:apou...@tiscali.fr] Envoyé : mardi 14 février 2006 18:22 À : pr...@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" <jgf....@free.fr> To: <pr...@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:bron...@gmail.com> *To:* pr...@fr.openoffice.org <mailto: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 <mailto:apou...@tiscali.fr>

*To:* pr...@fr.openoffice.org <mailto: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 <mailto:bron...@gmail.com>

*To:* pr...@fr.openoffice.org <mailto: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

	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: