Code VBA pour récapituler les noms des fichiers d'un dossier donnée

Question

Je m'adresse à vous les experts pour trouver une solution à ma recherche qui consiste à récapituler dans une feuille excel les noms de tous les fichiers d'un répertoire donnée. Exemple: Merci de voir l'image ci-dessous. Le résultat attendu: Dans une Feuille Excel donnée: on trouve les informations suivantes: Dossier Fichier Platts EUM_20210119 Platts EUM_20210120 ... .................

Xmenpl · Answer

Bonjour, une macro dans le genre :

Avec chemin Dossier à personnaliser à vos besoins

Sub Macro1()
'
' Macro1 Macro
Dim Dossier As String, Fichier As String, i As Integer
Dossier = "C:\Users\DIVERS\2021\Suivi platts\"
i = 0
Fichier = Dir(Dossier)
Do While Fichier <> ""
  i = i + 1
  Sheets("Feuil1").Range("A" & i) = Fichier
  Fichier = Dir
Loop

End Sub