Discussion :

[Blaiz58]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim Repertoire As FileDialog
 
Set Repertoire = Application.FileDialog(msoFileDialogFilePicker)
 
'NomFichier = ?

Merci pour votre aide

[pijaku]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Blaiz58]

Perfect ! Thank you

[vinc_bilb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

Bonjour,

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

[vinc_bilb]

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

[clementmarcotte]

Bonjour,

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

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