Récupérer le nom d'un dossier d'une arborescence

[zaknaster]

Bonjour à tous,

J'ai récupéré l'arborescence complète d'un dossier à partir d'un bouton "Parcourir" en VBA. Cette arborescence se retrouve dans un variable nommée "Dossier".

Par exemple, je choisis ce dossier: "C:\Temp\DossierMachin\SousDossier\DossierCible"

Je souhaiterai pouvoir récupérer dans une autre variable, uniquement "DossierCible", est-ce possible ?

Merci par avance.

 

[Pierrot93]

Re : Récupérer le nom d'un dossier d'une arborescence

Bonjour zacnaster,

peut être comme ceci, si j'ai bien compris :

Dim var1 As String, var2 As String
var1 = "C:\Temp\DossierMachin\SousDossier\DossierCible"
var2 = Mid(var1, InStrRev(var1, "\") + 1)

bon après midi
@+

 

[suistrop]

Re : Récupérer le nom d'un dossier d'une arborescence

salut,

si tu met ton chemin C:\toto\titi\tata dans la cellule 1,1
alors la cellule 1,2 sera tata

Cells(1, 2) = Right(Cells(1, 1), InStr(StrReverse(Cells(1, 1)), "\") - 1)

a+

 

[zaknaster]

Re : Récupérer le nom d'un dossier d'une arborescence

Bonjour,

merci, ça marche parfaitement bien.