Pour retrouver un fichier ouvert il faut énumérer tous les document OOo ouvert et voir si il est dans la liste la macro ci dessous énumére tous les fichiers ouvert active le document(URLcourrier )si déjà ouvert ou l'ouvre si pas déjà ouvert.. Tu peux ensuite travailler sur le document : DocCourrier Jean-Luc

Sub ActiveCourrier Dim PropFich(), arg(0) as new com.sun.star.beans.PropertyValue Dim lesDocs as Object, unDoc as Object, DocCourrier as Object Dim URLcourrier as String Dim laCollection as Object Dim DocOuvert as Long MonDocument = ThisComponent 'Sélectionne le document en cours MaFeuille = MonDocument.CurrentController.ActiveSheet ' sélectionne la feuille activée

DocOuvert = 0 arg(0).Name="MacroExecutionMode" 'argument pour rendre le document invisible à l'utilisateur (non utilisé) arg(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN 'on crée le chemin / repertoire au format URL URLcourrier = ConvertToURL("c:\mon répertoire\Mondoc.sxw") lesDocs=stardesktop.components on error resume next laCollection = lesDocs.createEnumeration do while laCollection.hasMoreElements unDoc=laCollection.nextElement DocURL = unDoc.URL if DocURL = URLcourrier then DocOuvert = 1 DocCourrier = unDoc exit do end if loop

if DocOuvert = 0 then DocCourrier=stardesktop.loadComponentFromURL(URLcourrier, "_blank", 0, arg()) End if DocCourrier.currentcontroller.frame.containerwindow.toFront

end sub Gerard Kohler a écrit :