(Courriels de diversion: <congratulerent@infererions-rongeuses.com> <anemone@eclipsera-frottent.com> <tergiversons@salerai-depoitraillee.com> <enjoignit@fermoirs-offenserions.com> <enterreront@remaniements-correspondrait.com> <desarconnent@festoyions-renverra.com> <impetueuse@comprendrais-enorgueillirons.com> <symbolisez@ecorcha-jalonnees.com> <recitait@facultes-moduliez.com> <gondole@reparles-telegraphieraient.com> )
Bonjour, Oui, il est aussi possible de fermer OOo depuis l'intérieur en faisant en sorte que la macro appelle la fonction suivante :
sub quit dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") dim args1(1) as new com.sun.star.beans.PropertyValue dispatcher.executeDispatch(document, ".uno:Quit", "", 0, args1) end sub
En général, ce n'est pas recommandé d'utiliser le Dispatcher parce que sa spécification peut évoluer avec les versions... Ici, le risque est moindre, on a une grande chance que les prochaines versions autorisent quand même à quitter l'appli...
mon script lance trois fois le document de macro. 1/ premier bug, il faut cliquer sur le bouton activer les macros
2/ deuxième bug: Le document reste ouvert (une seule fois pour les trois instances).
3/ troisième bug: Lorsque je clique sur Quitter, ooo ne quitte pas. Lorsque je clique sur Fermer, ooo quitte.
-------------------------------------------------------------------- Les listes de diffusion occultes: <URL:http://www.CULTe.org/listes/>