Remonter dans l'arborescence en vba

[BASSDINGUE]

bonjour le forum

j'ai un fichier qui ce trouve dans ThisWorkbook.Path & "\"
comment puis je faire pour remonter dans cette arborescence pour aller chercher des infos dans un fichier situé dans un dossier en amont?

merci et bonne journée a tous........et à toutes!

 

[Pierrot93]

Re : Remonter dans l'arborescence en vba

Bonjour,

pour le dossier parent, essaye peut être comme ceci :

Dim c As String
c = Mid(ThisWorkbook.Path, 1, InStrRev(ThisWorkbook.Path, "\")- 1)

bonne fin d'après midi
@+

Edition : rajouté le -1 pour enlever le dernier "\"

 

[BASSDINGUE]

Re : Remonter dans l'arborescence en vba

merci pierrot et bonne journée a toi aussi

 

[jonhson63]

Re : Remonter dans l'arborescence en vba

Merci à toi ce bout de code m'a servi