Importer une liste de nom de fichiers

oui.

Je te mets le code pris sur excelabo.net qui compte les fichiers...mais tu
aurais n'as que peu de modif pour obtenir le nom de chaque fichier.

(Attention la méthode FSO necessite que tu coches la référence File scipting
object dans ton vbe outilReference)

Sub test()
Dim Nb&
'nombre de fichiers à la racine du lecteur C
NbDeFichiers "c:", Nb&, False
MsgBox Nb: Nb = 0
'nombre total de fichiers sur le lecteur C
NbDeFichiers "c:", Nb&
MsgBox Nb: Nb = 0
'nombre de dossiers à la racine du lecteur C
NbDeDossiers "c:", Nb&, False
MsgBox Nb: Nb = 0
'nombre total de dossiers sur le lecteur C
NbDeDossiers "c:", Nb&
MsgBox Nb
End Sub

Sub NbDeFichiers(LeDossier$, Cpte&, Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.Path, Cpte
Next sousRep
End If
Set fso = Nothing
End Sub 'fs

Sub NbDeDossiers(DossierRacine$, Cpte&, Optional SousDossiers As Boolean =
True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(DossierRacine)
Cpte = Cpte + Dossier.SubFolders.Count
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeDossiers sousRep.Path, Cpte
Next sousRep
End If
Set fso = Nothing
End Sub
'fs Frédéric Sigonneau, (N°1258)

Bonjour à tous et à toutes,
Est-il possible d'importer la liste des noms des fichiers d'un dossier dans
une feuille Excel ? Ex: Dans l'Explorateur de document, Mon_Dossier
contient 80 documents Excel. J'aimerais importer cette liste dans une
feuille Excel.

Merci de votre aide.

Bernard.