VBA : récupérer nom du répertoire & activeworkbook

[dionys0s]

Bonjour le forum

pour les besoins de mon fichier, j'ai besoin de l'intitulé de mon répertoire le plus proche, et juste le répertoire, et non le dosser.

Dans mon cas, j'ai le code suivant tout nul

Sub test()

Répertoire = ActiveWorkbook.Path

End Sub

qui me fait resortir le chemin d'accès complet, mais je souhaiterais seulement le nom du dernier dossier, celui dans lequel est enregistré l'activeworkbook.

J'ai bien essayé de remplacer .Path par .Folder, .Directory, j'ai un peu cherché mais je n'ai rien trouvé de concluant

D'avance merci pour votre aide ^^

 

[mromain]

Re : VBA : récupérer nom du répertoire & activeworkbook

Bonjour dionys0s,


Essaye avec

Répertoire = Right(ThisWorkbook.Path, Len(ThisWorkbook.Path) - InStrRev(ThisWorkbook.Path, "\"))

A+

 

[jp14]

Re : VBA : récupérer nom du répertoire & activeworkbook

Bonjour

Si j'ai bien compris, un code à tester

Sub test()
Dim tablo() As String

tablo() = Split(ActiveWorkbook.Path, "\")
Dossier = tablo(UBound(tablo))

End Sub

JP

 

[dionys0s]

Re : VBA : récupérer nom du répertoire & activeworkbook

à vue de nez ça marche très bien. Merci beaucoup !