ouvrir un classeur

[steve]

bojour a tous

comment ouvrir un classeur(x1) dont l 'adresse est dans A1 d 'un autre classeur(x3) grace a un code.

merci d 'avance

 

[steve]

j ai trouvé



Sub NomClasseur()
Dim Chr As String 'déclare la variable
Chr = Range("Essai!C1") 'Feuille Essai et cellule C1
Workbooks.Open Filename:=(Chr)

End Sub

bonsoir

 

[@+Thierry]

Salut Steve, le Forum et les Cette page n'existe plus

Bon alors tu as trouvé tout seul Steve, et c'est très bien d'en faire profiter tout le monde, c'est çà l'esprit de ce Forum.

Tu peux aussi t'orienter de la sorte :

Sub OuvertureFichier()
Dim Chemin As String
Dim Fichier As String

Chemin = "c:\mes documents\mes classeurs\" 'si tu veux chercher ailleurs que le répertoire par défaut (sans avoir à l'écrire dans le cellule)
Fichier = Sheets("Essai").Range("C1").Value

Workbooks.Open Chemin & Fichier & ".xls" 'si tu n'as pas l'extention ".xls" dans la cellule
End Sub


Bonne Soirée
@+Thierry