Lister un répertoire dans une feuille

[Douby]

Bonjour,
J'essaie de réaliser une macro qui doit :
- lister les fichiers contenus dans un répertoire,
- ecrire ces fichier dans une feuille de calcul (un nom de fichier par cellule, en colonne).

Qui peut m'aider SVP ?

Douby

 

[michael]

Bonjour,

tu peux essayer ce code :

Set fs = Application.FileSearch
With fs
.NewSearch
.SearchSubFolders = False
.LookIn = "C:\Mes Documents\MonRep" '<- Chemin de ton répertoire
.FileType = msoFileTypeAllFiles
.Execute

For i = 1 To .FoundFiles.Count '<-Ecrit dans ton fichier
Range("A1").Offset(i,0).Value = FoundFiles(i)
Next i

End With


Michael

 

[jacquesderyes]

Bojour Douby et les amis du FORUM

Ci-dessous une approche pouvant résoudre ton PB

------------------------------------------------------------------------------------
Sub ListFeuilles()
Dim originalSetting As Integer
Dim wb As Workbook
Dim oS As Object
Dim I As Integer

'CREER UNE VARIABLE OBJET QUI SE REFERE AU DOSSIER ACTIF

Set wb = ActiveWorkbook
'CREER UN NOUVEAU DOSSIER AVEC UNE SEULE FEUILLE
'LE NOUVEAU DOSSIER DEVIENT ACTIF
'LA VARIABLE wb SE REFERE MAINTENANT AU DOSSIER PRECEDENT

originalSetting = Application.SheetsInNewWorkbook

Application.SheetsInNewWorkbook = 1
Workbooks.Add
Application.SheetsInNewWorkbook = originalSetting
'BOUCLE SUR TOUTES LES FEUILLES DU DOSSIER ORIGINAL

For Each oS In wb.Sheets
'INCREMENTE + A CHAQUE FOIS
I = I + 1
'ECRIT LE NOM DE LA FEUILLE SUR UNE CELLULE EN DESCENDANT DANS LA COLONNE A
Cells(I, 1).Value = oS.Name

Next
End Sub
------------------------------------------------------------------------------------


Bien amicalemet

Jacques de ryes