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).
------------------------------------------------------------------------------------
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
------------------------------------------------------------------------------------