Discussion :

[Philippe76]

Bonjour à tous
Voila j’ai un dossier nommé « Mes Fichiers » , dans ce dossier j’ai 4 fichiers nommés :
« 4_BaseRepGas_SC31075_FC-Fh.xls »
« 3_Base fiabilité & DMC 31075.xls »
« 2_RIC_GAS_31075.xls »
« 1_AC general info.xls »
Ils ont tout les 4 des liaisons
J’ai mis dans ThisworkBook du fichier numéro 4 (c’est lui qui ouvre les 3 autres :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
    MsgBox " Ouverture de 4 fichiers  ", vbInformation
 
            ‘ Ouverture du Fichier numéro 3
            Workbooks.Open Filename:="S:\Engineering\Zone de Partage\Mes fichiers\3_Base fiabilité & DMC 31075.xls"
 
            ‘ Ouverture du Fichier numéro 1
 
 
           ‘ Ouverture du Fichier numéro 2
            Workbooks.Open Filename:=" S:\Engineering\Zone de Partage\Mes fichiers\2_RIC_GAS_31075.xls"
 
End Sub

Je voudrais pouvoir adapter ce code de telle sorte que si je copie le dossier « Mes Fichiers » sous n’importe quel PC a n’importe quel endroit sans qu’il soit sous réseau ou pas récupérer le chemin et quand j’ouvre le fichier numéro 4 il puisse ouvrir les 3 autres
J’espère avoir été clair.
Merci et bonne journée
Philippe

[SfJ5Rpw8]

bonjour,

utilise ThisWorkbook/path pour obtenir le répertoire d'acceuil du fichier qui contient ton code

[Philippe76]

Bonjour et merci
Mais je le met ou ce code car je n'y connais pas grand chose en VBA

Code :

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

ThisWorkbook.path

Merci

[Philippe Tulliez]

Bonjour,
Pour l'instant tu ouvres chaque fichier en précisant le répertoire où il se trouve.
"S:\Engineering\Zone de Partage\Mes fichiers\nom du fichier.xls"
ThisWorkbook.Path donne le nom du répertoire (chemin) où se trouve le classeur excel dans lequel se trouve le code VBA.
Donc soit tu places ce code à chaque ligne d'ouverture

Code :

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

Workbooks.Open Filename:=ThisWorkbook.Path & "\nomdufichier.xls"

Soit tu déclares et alimentes une variable en début de procédure. Comme ci-dessous

Code :

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

1
2
3
Dim folder As String: folder = ThisWorkbook.Path & "\"
 Workbooks.Open Filename:=folder & "nomdufichier_1.xls"  
 Workbooks.Open Filename:=folder & "nomdufichier_2.xls"

[Philippe76]

Merci a tous
Merci pour ton explication Corona
Bonne journée