----- Original Message -----
From: "pierre-yves samyn" <[email protected]>
To: <[email protected]>
Sent: Saturday, October 22, 2011 11:38 AM
Subject: [fr-users] Re: Boite de dialogue
Bonjour
Ci-dessous un exemple de procédure dans un module de la bibliothèque
Standard de "Mes macros" :
option explicit
sub PysMajDoc
dim PysDlg as object, PysBibli as object, PysDialogue as object
DialogLibraries.Loadlibrary("Standard")
PysBibli = DialogLibraries.GetByName("Standard")' On charge la bibli
PysDialogue = PysBibli.GetByName("Dialog1") ' on accède à la boite
PysDlg = CreateUnoDialog(PysDialogue) ' création du dialogue
'Si on a quitté le dialogue par OK
if PysDlg.Execute = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
then
print PysDlg.getControl("TxtExemple").text
end if
end sub
Cordialement
Pierre-Yves
Merci Pierre Yves,
L'erreur que je faisais provenais que le code d'appel était dans la
bibliothèque Standard du document.
En le plaçant dans la bibliothèque Standard MesMacro sous forme de fonction
et en appelant cette fonction depuis le code du document tout fonctionne.
Encore Merci
--
Envoyez un mail à [email protected] pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
