Discussion :

[Alfred23]

Bonjour,

Je cherche à ouvrir un fichier qui n'est pas dans le même dossier que mon classeur actif...

Je m'explique ; jusqu'à présent, le code suivant me permettait d'ouvrir le fichier dont j'avais besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open ThisWorkbook.Path & "\Fichier1.xls"

Mais j'ai dû déplacer ce fichier1.xls et le mettre "un cran au dessus"... Je ne suis pas très clair alors je vais essayer d'expliquer mieux !

Le dossier1 contient : le fichier1 et le dossier2.
Le dossier2 contient le fichier2.

Je souhaite ouvrir le fichier1 depuis une macro du fichier2.

Je ne sais pas comment expliciter en VBA le chemin d'accès de mon fichier1.

Merci d'avance pour votre aide.

Cordialement,
Alfred

[mercatog]

Bonjour
Une proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim MonFichier1 As String, Dossier2 As String
Dim Wbk As Workbook
 
Dossier2 = ThisWorkbook.Path
MonFichier1 = Left(Dossier2, InStrRev(Dossier2, "\")) & "Dossier1\Fichier1.xls"
Set Wbk = Workbooks.Open(MonFichier1)
'Suite du code avec Wbk est le classeur Fichier1
 
Set Wbk = Nothing

[SfJ5Rpw8]

bonjour,

peu-être plus simple (et plus évident pour les utilisateurs de DOS)

le fameux ".."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Open ThisWorkbook.Path & "\..\Fichier1.xls"

[Alfred23]

Tout simple, effectivement !!

Merci beaucoup !

Bonne journée.
Alfred