Boite de dialogue

fr-users
#1

bonjour à tous,

J'aimerai savoir comment afficher par macro une boite de dialogue personnalisée qui est enregistrée dans le module standard de Soffice.
Je sais l'afficher si je la rend solidaire d'un document (en suivant les exemples du bouquin Progammation Open office.org)mais dans mon cas elle va être utilisée dans plusieur documents différents donc plutôt que de la stocker dans chacun des documents je l'enregistre dans le module général. Seulement les différent essais que j'ai fait pour l'afficher se sont soldés par des messages d'erreur.
Merci de votre aide

François

#2

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

#3

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