Sub ListAllFile() 
     
        Dim objFSO As Object 
        Dim objFolder As Object 
        Dim objFile As Object 
        Dim ws As Worksheet 
     
        Set objFSO = CreateObject("Scripting.FileSystemObject") 
        Set ws = Worksheets.Add 
     
         'Get the folder object associated with the directory
        Set objFolder = objFSO.GetFolder("C:\") 
        ws.Cells(1, 1).Value = "The files found in " & objFolder.Name & "are:" 
     
         'Loop through the Files collection
        For Each objFile In objFolder.Files 
            ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name 
        Next 
     
         'Clean up!
        Set objFolder = Nothing 
        Set objFile = Nothing 
        Set objFSO = Nothing 
     
    End Sub

Comment lister tous les fichiers d'un répertoire dans un fichier excel ?

Excel (VBA) list all filenames in a directory

mastipro

[VBA-EXCEL] Lister les fichiers d\'un répertoire donné

files, directory

Visual Basic