Public Chemin, Chemin2
Sub Test_Directory()
Chemin = "Z:\MonChemin\Test"
Extrait_Dernier_Chemin
'MsgBox Dir(Chemin, vbDirectory)
If Dir(Chemin, vbDirectory) = Chemin2 Then MsgBox "Dossier trouvé." Else MsgBox "Dossier non trouvé."
End Sub
Sub Extrait_Dernier_Chemin()
Ncar = Len(Chemin)
For i = Ncar To 1 Step -1
If Mid(Chemin, i - 1, 1) = "\" Then GoTo suite2 Else GoTo suite
suite:
Next
suite2:
Chemin2 = Mid(Chemin, i, Ncar - i + 1)
End Sub