Bonjour Sophie,

La variable "chaine" contient le texte dont nous souhaitons récupérer la fin.
2 façons :


- Façon "bavarde" :

pos=InStrRev(chaine,"\")
resultat=(Mid(chaine,pos))


- Façon moins "bavarde" :
resultat=(Mid(chaine,InStrRev(chaine,"\")))

A vérifier s'il ne faut pas faire +1 à pos ...

Bonjour,

La fonction extraire_dernier ce dessous retourne le dernier élément d'une chaine dont chaque champ est séparé par "\" comme dans le chemin d'un fichier

Sub essai()
Dim chaine As String, schaine As String
chaine = "C:\Documents and Settings\Default User\Local Settings\Temporary Internet Files\Content.IE5"
schaine = extraire_dernier(chaine)
MsgBox schaine
End Sub

Function extraire_dernier(chaine As String) As String
Dim ipos As Integer, apos As Integer
apos = 0: ipos = 0
Do
   ipos = InStr(ipos + 1, chaine, "\")
   If ipos > 0 Then apos = ipos
Loop While ipos > 0
extraire_dernier = ""
If apos > 0 Then extraire_dernier = Right(chaine, Len(chaine) - apos)
End Function