Dim t As String
t = "C:\Dossier1\Dossier\Dossier3"
MsgBox Split(t, "\")(UBound(Split(t, "\")))
Dim t As String
t = "C:\Dossier1\Dossier\Dossier3"
MsgBox Mid(t, InStrRev(t, "\") + 1)
=DROITE(A1;NBCAR(A1)-MAX((STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)="\")*LIGNE(INDIRECT("1:"&NBCAR(A1)))))
=DROITE(A1;NBCAR(A1)-MAX((STXT(A1;LIGNE(1:1000);1)="\")*LIGNE(1:1000)))
=STXT(A1;CHERCHE("µ";SUBSTITUE(A1;"\";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"\";""))))+1;1000)