J'ai besoin de récupérer le chemin d'un fichier qui n'a pas exactement le même chemin que le fichier depuis lequel je lance ma macro. Je m'explique, j'ai:
- Un dossier A-> contenant un fichier A et un dossier B
- Le dossier B-> contient un fichier B
Depuis mon fichier B, j'aimerai pouvoir avoir le chemin du fichier A.
Le problème est que si j'utilise cette méthode, je "rentre" dans le dossier B.
En bref..peut-on enlever des caractères à "ThisWorkbook.Path", en l'occurence ici je devrais enlever "\dossier B".
Mais tu trouveras des exemples plus détaillés dans les archives du forum.
(clique sur la loupe en haut à droite de l'écran pour les trouver)
EDITION: Allez je vais t'épargner un clic
Code:
Sub a_commejemennuyaisjemacrote()
MsgBox ThisWorkbook.Name
MsgBox ThisWorkbook.FullName
MsgBox Split(ThisWorkbook.FullName, "\")(UBound(Split(ThisWorkbook.FullName, "\")))
End Sub
Sub Chemin()
Dim s, t$
s = Split(ThisWorkbook.Path, "\")
s(UBound(s)) = ""
t = Join(s, "\")
t = Left(t, Len(t) - 1) 'facultatif, pour enlever le \ à la fin
MsgBox t
End Sub
Un grand merci à tous pour vos réponses. J'avais besoin du chemin pour aller jusqu'au fichierA depuis le fichierB.
DossierA -> fichierA
-> DossierB-> fichierB
Au final, j'obtiens grâce à votre aide:
Code:
Sub Test()
Dim t$
'-1 pour enlever le dernier \
t = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\dossierB") - 1) & "\fichierA.xls"
MsgBox t
End Sub