Bonjour à tous,

J'avais moi-même posé la question sur la liste. Je crois avoir trouvé une réponse qui fonctionne si l'éditeur de macros est fermé. Elle utilise l'API de windows.

Declare Function GetActiveWindow Lib "user32" () As Long Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

Sub Essai rem on récupère le handle de la fenêtre active. On suppose que c'est une fenêtre OOo hWnd = GetActiveWindow() rem on ferme toutes les fenêtres OOo actives. On error resume Next myEnum = StarDesktop.Components.CreateEnumeration Do while myEnum.HasmoreElements oDoc = myEnum.NextElement If HasUnoInterfaces(oDoc, "com.sun.star.util.XCloseable") Then oDoc.close(true) Else oDoc.dispose() End If Loop On error goto 0 rem l'API de windows ferme le quickstarter ExitProcess(hWnd) End Sub

PS: si cela fonctionne j'en ferai un code snippet.