Récupérer dans Excel les noms des fichiers d'un dossier

Bonjour à tous,

Pourriez-vous me dire comment je peux récupérer dans une feuille Excel les noms des fichiers d'un dossier en particulier, s'il vous plaît?

J'ai essayé le code ci-dessous mais je ne récupère aucun résultat.

Function GetFileNames(ByVal FolderPath As String) As Variant
Dim Result As Variant
Dim i As Integer
Dim MyFile As Object
Dim MyFSO As Object
Dim MyFolder As Object
Dim MyFiles As Object
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFSO.GetFolder(FolderPath)
Set MyFiles = MyFolder.Files
ReDim Result(1 To MyFiles.Count)
i = 1
For Each MyFile In MyFiles
Result(i) = MyFile.Name
i = i + 1
Next MyFile
GetFileNames = Result
End Function

Source: https://trumpexcel.com/list-of-file-names-from-a-folder-in-excel/

Merci par avance pour votre aide.

Bonjour

Regarde dans la mine d'or de http://boisgontierjacques.free.fr/

Il y a une multitude d'outils et un des outils permet de faire ce que tu souhaite

celui ci par exemple: http://boisgontierjacques.free.fr/fichiers/jb-ListeFichiersRepertoireChoixDossier.xls

Bonjour @CB60,

Merci beaucoup pour le partage du lien.

J'ai trouvé réponse à ma problématique avec le code suivant:

Sub ListeFichiers()
  Application.ScreenUpdating = False
  Range("A2:D65000").ClearContents
  repertoire = ThisWorkbook.Path & "\" ' adapter
  [H2] = repertoire
  ligne = 2
  nf = Dir(repertoire & "*.*") 'premier fichier xls
  Do While nf <> ""
    Cells(ligne, 1) = nf
    Cells(ligne, 2) = FileDateTime(nf)
    Cells(ligne, 3) = FileLen(nf)
    ligne = ligne + 1
    nf = Dir ' suivant
  Loop
End Sub

Source: http://boisgontierjacques.free.fr/