J'ai oublié un Dim Chemin As String
 
Cathy
----- Original Message -----
Sent: Tuesday, January 10, 2006 9:17 AM
Subject: Re: [prog] [calc]Macro pour ouvir un document

Bonjour Nojid, essaie ce code :
Sub OuvrirFichierAdresseCelluleA1
 Dim LesFeuilles As Object, UneFeuille As Object
 Dim UneCellule As Object, document As Object
 Dim  adresseDoc As String
 Dim propFich()
 
LesFeuilles = ThisComponent.Sheets
UneFeuille = LesFeuilles.getByIndex(0) '0 pour 1ère feuille
UneCellule = UneFeuille.getCellRangeByName("A1")
Chemin = UneCellule.string
AdresseDoc = convertToURL(Chemin)
document = StarDesktop.LoadComponentFromURL(adresseDoc, "_blank", 0, propFich)
End Sub
 
Cathy
----- Original Message -----
From: Nojid
Sent: Tuesday, January 10, 2006 7:33 AM
Subject: [prog] [calc]Macro pour ouvir un document

Bonjour
Je débute en programmation sous OOo 2.0.
Je souhaiterais ouvrir, à l'aide d'une macro contenue dans un Classeur1, un Classeur2 dont l'adresse se situe dans la cellule F15 de la Feuille3 du Classeur1.
Merci pour votre aide

Répondre à