Bonjour,
Merci Bernard pour la rapidité de la réponse.
J'ai testé : cela devrait faire mon affaire.
Et mérite un "code snippet" ???
Cordialement.
Bernard Marcelly wrote:
Bonjour,
Trouvé ! (désolé, François ;) )
Exemple :
Dim dlg As Object, bibli As Object, monDialogue As Object
Dim langue As New com.sun.star.lang.Locale
DialogLibraries.loadLibrary("Library1")
bibli = DialogLibraries.getByName("Library1")
monDialogue = bibli.getByName("Dialog1")
dlg = CreateUnoDialog(monDialogue)
dlg.execute ' avec la langue de l'interface utilisateur
langue.Language = "de"
langue.Country = "DE"
dlg.Model.ResourceResolver.setCurrentLocale(langue, True)
dlg.execute ' le même en allemand
dlg.dispose
Attention:
Ce changement est appliqué à tous les dialogues de la même bibliothèque,
et reste mémorisé pour de nouveaux lancements de macros jusqu'à ce que
- soit on change encore la langue
- soit on ferme le document (bibliothèque de document)
- soit on ferme OpenOffice (bibliothèque de Mes Macros/OOo Macros).
______
Bernard
--
Didier Dorange-Pattoret
http://www.dmaths.org
http://sesamath.net
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
