Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zeltron

XLDnaute Occasionnel
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
 
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
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…