Récupérer le nom du dossier du fichier courant

**zoumzoum59** · 05/06/2008, 10h23

Bonjour

Comment puis je récupérer le nom du dossier du fichier courant, je sais recuperer le chemin entier avec :

Code :

AppPath = ActiveWorkbook.Path

Mais comment ne recuperer que le dossier final.

Merci d'avance

**ouskel'n'or** · 05/06/2008, 10h32

Tu as plusieurs solution, je t'en mets une :

Code :

1
2
3
AppPath = ActiveWorkbook.Path
Tabrep = Split(AppPath, "\")
Rep = Tabrep(UBound(Tabrep))

Une autre solution ?

Code :

1
2
AppPath = ActiveWorkbook.Path
Rep = StrReverse(Left(StrReverse(AppPath), InStr(StrReverse(AppPath), "\") - 1))

**ucfoutu** · 05/06/2008, 11h11

Bonjour,

Pourquoi ?
La fonction InstrRev n'existe pas en VBA ?

**ouskel'n'or** · 05/06/2008, 11h18

Hello ucfoutu,
Eh non, en tout cas pas jusqu'en 2003 !

**ucfoutu** · 05/06/2008, 12h19

Hello ousk,

Je suis alors chanceux (il faut bien l'être de temps à autre) de l'avoir sur mon Excel 2000.... (3 années d'avance

)
Mais il est vrai que mon voisin, resté avec la version 97, ne l'a pas, lui ...

**ouskel'n'or** · 05/06/2008, 12h23

Je viens de regarder : Pas non plus dans VBA97. Mais peut-être as-tu un xla validé que je n'ai pas (?)

**zoumzoum59** · 05/06/2008, 12h40

Ok ouskel'n'or

Un grand merci

Macros et VBA Excel