Récupérer nom fichier sélectionné

Bonjour à tous,

Je cherche à récupérer le nom d'un fichier que j'ai sélectionné à l'aide de l'application FileDialog (code ci dessous)
Mais que le nom et pas tout le chemin.

Code:

---

1 2 3 4 5 6

Dim Repertoire As FileDialog   Set Repertoire = Application.FileDialog(msoFileDialogFilePicker)   'NomFichier = ?

---

Merci pour votre aide :)

Bonjour,

Si tu ne sélectionnes qu'un seul fichier à la fois :

Code:

---

1 2 3 4 5 6 7 8

Sub Test1() Dim Chemin As String, NomFic As String Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False Application.FileDialog(msoFileDialogFilePicker).Show Chemin = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1) NomFic = Split(Chemin, "\")(UBound(Split(Chemin, "\"))) MsgBox NomFic End Sub

---

Perfect ! Thank you :)

Bonjour,

Oui, j'ai au moins deux manières différentes en tête, dépendant de l'usage que vous voulez faire de votre variable 'Nom Fichier":

1. Vous passez par un split de votre retour du filedialog, du style et vous récupérez l'enregistrement max

Code:

---

1 2	Split(FilePath, "/", , vbTextCompare)

---

2. Passez par le File System Object, du style (adapté mais non testé)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function FS_RetFileN(ByVal FilePath As String) As String '============================================================================= ' Extract the file name based on the File Full Path     Dim FSO As Scripting.FileSystemObject Dim FFile As Scripting.File   Set FSO = New Scripting.FileSystemObject Set FFile = FSO.GetFile(FilePath)     FS_RetFileN= FFile.Name End Function

---

Si ça peut vous aider

Bonjour,

Que d'usines à gaz alors qu'un simple Dir suffit.

C'est vrai .... mais sauf erreur, le dir ne fonctionne pas sur les disques réseaux non mappés ou les sharepoints et passer par le FSO si quelquechose est fait sur le fichier après coup est finalement bien plus 'concis'
Juste mon point de vue ....

Bonne journée

Bonjour,

Ce n'est pas du "Excel pur", mais jute pour le fun

http://frederic.sigonneau.free.fr/co...chierTexte.txt