Nom de fichier en vba

Bonjour,
j'aimerai pouvoir en vba recuperer le nom d'un fichier séléctionné par une boite de dialogue,
avec le code ci dessous,
j'arrive a recuperer le chemin complet du fichier ( avec repertoires/sous repertoire/)
j'arrive egalement a recupere tout le chemin de ce fichier mais sans son nom ( donc uniquement les repertoires/et sous repertoires )

et je voudrais pouvoir n'avoir que son nom.. exemple : "toto.xls"
savez vous comment ?

Code:

---

1 2 3 4 5 6 7 8

Sub recup() Dim fichier As FileDialog Set fichier = Application.FileDialog(msoFileDialogFilePicker) fichier.Show MsgBox fichier.InitialFileName ' affiche le repertoire du fichier selectionné uniquement MsgBox fichier.SelectedItems(1) 'affiche le repertoire complet 'msgbox qui premet de recuperer uniquement le nom du fichier selectionné ex : toto.xls End Sub

---

Salut

Le dernier \ détermine le début du nom du fichier. En inversant la chaine, il devient le premier et tu peux déterminer sa position n. Il suffit alors d'extraire les n-1 caractères à droite de la chaine.

Code:

---

1 2 3

Dim chaine As String chaine = "C:\mon dossier\mon dossier2.xls" chaine = Right(chaine, InStr(1, StrReverse(chaine), "\") - 1)

---

GENIAL !:ccool: