Comment dire:"le dossier auxquel appartient ThisWorkbook.Path "???

[zeltron]

Bonjour à tout le forum

Quand 2 fichiers (Fichier A.xls et Fichier B.xls) sont dans la même dossier, par macro dans le fichier A je peux ouvrir le fichier B:

Sub...
Workbooks.Open Filename:=ThisWorkbook.Path & "\B.xls"
...
End Sub

Mais lorsque j'ai la configuration suivante:

-Soit un dossier Z contenant:
*Un Fichier "B.xls"
*Un dossier "X"
=>Le dossier"X" contenant un Fichier "A.xls"

Comment par macro sur le Fichier A ouvrir le fichier B mais en utilisant la notion de ThisWorkbook.Path car le dossier "Z" peut être déplacé???

Comment dire en quelque sorte par macro sur le Fichier A:

Workbooks.Open Filename:=Le path du dossier auxquel appartient le dossier contenant ce fichier & "\B.xls" ???

Une sorte de ThisWorkbook.Path "moins" le nom du dossier de ce fichier(A) soit "moins" "\X\" .

Cela est il possible??? J'ai regardé partout mais n'ai absolument rien trouvé.

Pouvez-vous m'aider???

Cordialement

Zeltron

 

[Creepy]

Re : Comment dire:"le dossier auxquel appartient ThisWorkbook.Path "???

Bonjour le Forum, Zeltron,

Tu peux l'obtenir en utilisant une combinaison de la fonction mid$ (renvoie un portion de texte d'un texte, en fonction d'un point de départ et de fin), et de la fonction instrrev (renvoie la première occurence d'une lettre dans un texte en partant de la fin).

Par exemple :

Mid$("Bonjour",2,3) renvoie : onj (depart 2eme lettre, 3 de longueur)

Instrrev("Bonjour","r") renvoie : 7 (R en 7eme position)

Donc si tu fais une combinaison :

Mid$("Bonjour",2,Instrrev("Bonjour","r")) te renverra : onjour

Regarde l'exemple en PJ.

A+

Creepy

 

[zeltron]

Re : Comment dire:"le dossier auxquel appartient ThisWorkbook.Path "???

Bonjour Creepy

Je n'osais croire que cela puisse être possible!!!

Ta solution fonctionne à merveille!!

Merci beaucoup.

Cordialement

Zeltron