Au secour !!! extraire des caractères d'une chaine

Bonjour à tous et meilleurs voeux
Je traivaille sur 2 fichiers excel
le premier FICHIER 1 est pour la saisie et le traitement de données qui sont sur FICHIER2
je récupere le chemin de celui ci :
c:\mon dossier\fichier2.xls
je veux tous simplement extraire le nom du fichier(sans tout le chemin) pour le mettre dans un label sur mon FICHIER 1 par exemple.
je ne sais pas comment proceder
Pouvez vous m'aider?

Bonsoir,

Utilise Right pour extraire la partie droite et instrrev pour localiser le dernier "\"

Private Sub Form_Load()

MsgBox GetName("c:\mon dossier\fichier2.xls")

End Sub

Private Function GetName(ByVal Path As String) As String
  GetName = Right(Path, Len(Path) - InStrRev(Path, "\"))
End Function

Kenji

---

Salut,

Essaye ceci avec strPath = "c:\mon dossier\fichier2.xls" :

    Static lng as long, strFile as string
    l = InStrRev(strPath, "\")
    strFile = Mid$(strPath, lng + 1)

Bonne soirée

SkyRocKo

Tu peut aussi utiliser mid (plus simple)

Private Function GetName(ByVal Path As String) As String
  GetName = Mid(Path, InStrRev(Path, "\") + 1)
End Function

Kenji

---

    Oups, j'arrive trop tard

Petite rectification:
    Static lng as long, strFile as string
    lng = InStrRev(strPath, "\")
    strFile = Mid$(strPath, lng + 1)

++