Bonjour Roulio et Ti,
j'ai trouvé ce topic très intéressant, donc je m'y suis mis à faire la même chose pour obtenir une liste de fichiers par une fonction (comme décrit au dessus)... mais sans résultats positive (je crée apparamment une référence circulaire) ... Avez-vous une petite idée?
Voici mon code:
Function MontreListeFichiers(Filespec)
Dim fs, f, f1, fc, i, y
i = ActiveCell.Rows.Row
y = ActiveCell.Columns.Column
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Filespec)
Set fc = f.Files
For Each f1 In fc
Sheets(1).Cells(i, y).Value = f1.Name
i = i + 1
Next
End Function
Merci beaucoup,
Johan