Ci dessous une solution en VBA
On cherche le dernier "\"
Code:
Sub recherche()
Data1 = Sheets("Feuil1").Range("a2")
pos = 0
pos1 = 0
Do
pos = InStr(pos + 1, Data1, "\")
If pos = 0 Then Exit Do
pos1 = pos
Loop
nom = Mid(Data1, pos1 + 1, 100)
End Sub
Bien que la solution d'Hasco soit bien plus concise une autre possibilité
Code:
Sub Fichier()
Machaine = "C:\xxxxx\xxxx\xxxx\....\nomdufichier.ext"
i = Len(Machaine)
Do While pos = 0
i = i - 1
pos = InStr(i, Machaine, "\")
Loop
fichier = Mid(Machaine, pos + 1)
End Sub