Bonjour Philippe, Message du 2005-08-26 17:50:

J'ai déjà répondu récemment dans le contexte COM avec Delphi. Il faut utiliser le dispatcher. En Basic cela donne ceci.

Supposons ouvert un document appelé MessageBox.sxw contenant une bibliothèque maBibli, avec dans son Module1 cette macro: Sub afficher(texte as string) MsgBox(texte) End Sub

Ouvrons un deuxième document contenant cette macro: Sub lancerMacroAilleurs dim fenetreDoc as object, dsp as object fenetreDoc = StarDesktop.CurrentFrame dsp = CreateUnoService("com.sun.star.frame.DispatchHelper") rem -- ici une ligne très longue !!! dsp.executeDispatch(fenetreDoc, "macro://MessageBox/maBibli.Module1.afficher(Hello OOo!)", "", 0, Array())

msgbox("macro lancée") End Sub

Lancer la macro "lancerMacroAilleurs". On verra s'afficher "Hello OOo!" puis à la fermeture de la boîte, le message "macro lancée". On voit que la macro "afficher" a interprété tout le texte comme un seul argument. Les arguments d'appel de la macro sont séparés par des virgules, chaque argument étant toujours récupéré par la macro comme un String. La macro appelée ne peut pas renvoyer d'information à son appelant (en tous cas, je n'ai pas trouvé comment faire).

Bernard