En fait la variable sForm est initialisée dans chaque formulaire avec le nom du formulaire à fermer. Dans "Contacts" il est initialisé à "Contacts" dans "Appels" à "Appels" dans "Adresses" à "Adresses" etc

La ligne d'appel de la macro "Fermeture" donne donc après remplacement oDispatch.executeDispatch( StarDesktop, "macro://Contacts/Standard.Lanceur.Fermeture(" & sForm & ")", "", 0, Array() )

^ ^ ^ ^

I I I I

formulaire Biblio Module Macro

où se trouve

"Fermeture" oDispatch.executeDispatch( StarDesktop, "macro://Contacts/Standard.Lanceur.Fermeture(Appels)", "", 0, Array() )

Dans la mesure où tu fermes le formulaire qui pour mon cas est le formulaire pivôt, "sForm" serait alors initialisée à "Contacts"

Cependant dans la mesure où tu n'as qu'un formulaire à fermer, s'il s'appelait "Travail" pourquoi n'utilises-tu pas directement la macro "Fermeture" en la modifiant légèrement ainsi :

Sub Fermeture Dim oDoc As Object, oFormClo As Object, oDocForms As Object, sForm As String oDoc = StarDeskTop.getCurrentComponent

oDocForms = oDoc.getFormDocuments() sForm = "Travail" oFormClo = oDocForms.getByName(sForm)

oFormClo.dispose End Sub

Un détail qui a son importance : J'utilise "StarDesktop" et pas "ThisComponent". Dans ce cas, tu ne peux pas tester pas à pas dans l'éditeur de macros. Il n'y a pas d'autre solution pour tester que de tenter la fermeture du formulaire en lançant la macro "Fermeture".

Cordialement Jean-Marc