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

zaknaster · 19 Octobre 2009

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 · 19 Octobre 2009

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

Bonjour zacnaster,

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

Code:

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

bon après midi
@+

suistrop · 19 Octobre 2009

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

Code:

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

a+

zaknaster · 19 Octobre 2009

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

Bonjour,

merci, ça marche parfaitement bien.

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

zaknaster

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

suistrop

XLDnaute Impliqué

zaknaster

XLDnaute Nouveau

Discussions similaires

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

zaknaster

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

suistrop

XLDnaute Impliqué

zaknaster

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency