Remonter dans l'arborescence en vba

Pierrot93

XLDnaute Barbatruc

• 9 Novembre 2009

• #2

Re : Remonter dans l'arborescence en vba

Bonjour,

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

Code:

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 "\"

 

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 9 Novembre 2009

• #3

Re : Remonter dans l'arborescence en vba

merci pierrot et bonne journée a toi aussi

 

Vote positif 0 Vote négatif

J

jonhson63

XLDnaute Nouveau

• 13 Avril 2011

• #4

Re : Remonter dans l'arborescence en vba

Merci à toi ce bout de code m'a servi

 

Vote positif 0 Vote négatif