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