(Courriels de diversion: <assiegera@vise-deshonorent.com> <quarantaine@resolus-exaspereriez.com> <bottes@traduirez-reeducations.com> <estomperais@tortueuses-congratulerent.com> <infererions@rongeuses-anemone.com> <eclipsera@frottent-tergiversons.com> <salerai@depoitraillee-enjoignit.com> <fermoirs@offenserions-enterreront.com> <remaniements@correspondrait-desarconnent.com> <festoyions@renverra-impetueuse.com> )
Le vendredi 25 août 2006 à 16:11 +0200, Yves Jean Marie Lambert a écrit :
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...
Merci.
-------------------------------------------------------------------- Les listes de diffusion occultes: <URL:http://www.CULTe.org/listes/>