Bonjour,
Le code suivant te permet de lister le nom de tous les fichiers d'un répertoire et de les inscrire dans une feuille excel.
Il te suffit de modifier les 2 lignes du 'traitement' pour y adapter le traitement que tu souhaites.
Private Sub CommandButton1_Click()
'ouvre une fenêtre de dialogue pour demander le chemin du répertoire
MyPath = InputBox("Indiquez le chemin du répertoire : ", "Lister les fichiers.", "A:\")
'définit le répertoire où sont les fichiers
myname = Dir(MyPath, vbDirectory)
'boucle passant en revue tous les fichiers du répertoire
Do While myname <> ""
' traitement
ActiveCell.Offset(1, 0).Select 'sélectionne la ligne suivante de la colonne A
ActiveCell = myname 'inscrit le nom du fichier trouvé
' passe au fichier suivant
myname = Dir
Loop
End Sub