copier nom de fichier

valérie avait soumis l'idée :

je voudrais copier les noms de fichier d'un répertoire pour les coller dans
une feuille excel, j'aurai ainsi la liste de mes fichier et je pourrai la
trier, etc...
Je ne cherche donc pas à copier les fichiers mais seulement leurs noms.
Merci de votre aide.

Sub Copie()
MesFichiers = Dir("E:Fichiers*.xls")
While MesFichiers <> ""
ActiveCell = MesFichiers
ActiveCell.Offset(1, 0).Select
MesFichiers = Dir
Wend
End Sub

--
JLuc

Bonjour
Code exemple *** à adapter
Cordialement
Pascal

Sub Lister()
'***Feuil1 = CodeName de la feuille qui va contenir la liste
Feuil1.Range("A2:A" & Feuil1.Range("A65536").End(xlUp).Row).ClearContents
Dim fso As Object, Rep
Set fso = CreateObject("Scripting.FilesystemObject")
Set Rep = fso.GetFolder(ThisWorkbook.Path) '***Ou un chemin complet #
Dim F
Dim i&
i = 2
For Each F In Rep.Files
If F.Type <> "Feuille de calcul Microsoft Excel" Then '***à adapter
Feuil1.Hyperlinks.Add Cells(i, 1), F.Path, , , F.Name '*** à adapter
i = i + 1
End If
Next F
Set Rep = Nothing
Set fso = Nothing
Feuil1.Range("A2:A" & Feuil1.Range("A65536").End(xlUp).Row).Sort
key1:þuil1.[A1]
Feuil1.Columns("A:A").EntireColumn.AutoFit
End Sub

Cordialement
Pascal

Bonjour,

Sub modif_jour()
Range("a2:d10000").ClearContents
ChDir ActiveWorkbook.Path
Range("A2").Select
nf = Dir("*.xls") ' premier
Do While nf <> ""
ActiveCell = nf
ActiveCell.Offset(1, 0).Select
nf = Dir ' suivant
Loop
Range("A2").Select
End Sub

Cordialement JB

merci, je vais gagner un temps précieux!

valérie avait soumis l'idée :

je voudrais copier les noms de fichier d'un répertoire pour les coller dans
une feuille excel, j'aurai ainsi la liste de mes fichier et je pourrai la
trier, etc...
Je ne cherche donc pas à copier les fichiers mais seulement leurs noms.
Merci de votre aide.

Sub Copie()
MesFichiers = Dir("E:Fichiers*.xls")
While MesFichiers <> ""
ActiveCell = MesFichiers
ActiveCell.Offset(1, 0).Select
MesFichiers = Dir
Wend
End Sub

--
JLuc