Bonjour Je me suis servi des éléments que vous m'avez donné et je me suis fait la macro ci-jointe après La macro liste les documents ouverts si aucun ne correspond à celui que je veux lancer elle le charge sinon elle le document déja existant à une variable objet. Cela fonctionne bien et je peux accéder et modifier les données du document en question. Le seul problème qui me reste c'est de pouvoir mettre le document en avant plan (mettre le focus) quand il est déja ouvert comme si je cliquais sur un hyperlien.

Jean-Luc

Sub OuvrirJournal dim DocCible as object, unDoc as object dim arg(0) as new com.sun.star.beans.PropertyValue DocOuvert = 0

URLfichier= ConvertToUrl("C:\Mes documents\JournalFactures.sxc") lesDocs=stardesktop.components on error resume next laCollection = lesDocs.createEnumeration Xray.xray lesDocs do while laCollection.hasMoreElements unDoc=laCollection.nextElement oURL = unDoc.URL if oURL = URLfichier then DocOuvert = 1 DocCible = unDoc print DocCible.URL exit do end if loop

if DocOuvert = 0 then Msgbox "on charge" DocCible=stardesktop.loadComponentFromURL(URLfichier, "_blank", 0, arg()) end if

LesFeuillesCible = DocCible.sheets FeuilleCible = LesFeuillesCible.getByName("Feuille1")

CelluleCible = FeuilleCible.GetCellRangeByName("A1") msgbox CelluleCible1.formula Unezone = FeuilleCible.getCellRangeByName("A1:C1") DocCible.CurrentController.Select(UneZone)

End sub

Laurent Godard a écrit :