Génial je vai sessayer ça Merci encore !
Didier Dorange-Pattoret a écrit :
Bonjour, Dans le fichier Install.odt de l'archive de dmaths, on trouve des macros qui ferment totalement OOo (Quickstarter inclus) puis le relance. Je les ai écrites, il y a un bon moment ... On récupère le handle de la fenêtre active de OOo Declare Function GetActiveWindow Lib "user32" () As Long HandleWin = GetActiveWindow puis on crée ce module dans la bibliothèque standard : Sub CreeModuleCloseQuick rem cette macro installe un module contenant la macro qui arrête le quickstarter Dim oLib as Object, sCloseQuick as String sCloseQuick = "Rem Copyright Didier Dorange-Pattoret 2006" sCloseQuick = sCloseQuick & Chr(13) & "Declare Sub ExitProcess Lib ""kernel32"" (ByVal uExitCode As Long)" sCloseQuick = sCloseQuick & Chr(13) & "Sub CloseQuick(hWnd as Long)" sCloseQuick = sCloseQuick & Chr(13) & "ExitProcess(hWnd)" & Chr(13) & "End Sub" oLib = GlobalScope.BasicLibraries.Standard If oLib.hasByName("DmCloseQuick") Then oLib.removeByName("DmCloseQuick") EndIf oLib.InsertByName("DmCloseQuick",sCloseQuick) End Sub La macro CloseQuick est appelée avec paramètre hWnd grace à la ligne : sLine = sCheminOffice & " ""macro:///Standard.DmCloseQuick.CloseQuick(" & Cstr( HandleWin ) &")""" dans un fichier batch. C'est bricolé mais ça marche ... :-) www.dmaths.org Cordialement. Sébastien VINOT a écrit :Bonjour, Dans le cadre d'un service UNO je souhaite créer un batch (windows oblige) mais je dois fermer openoffice préalablement. Esce possible en ligne de commande ? Sébastien --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
