Lister les fichiers dans un dossier

Bonjour !

J'ai un dossier qui contient des fichiers excel, au moins 80 fichiers, qui servent comme base de donnée,

dans le fichier principal, je veux lister les fichiers contenu dans un dossier , et afficher le nombre de lignes de chacun des fichiers

Le chemin du dossier est affiché dans une cellule excel, j'ai réussi a faire cette partie grace a un code VBA.

Merci !

Bonjour,

Un test à insérer dans un module standard en partant du principe que chaque fichier possède l'extension xlsx, et que la BDD se situe sur la première feuille du fichier. Comme chaque fichier est ouvert puis refermé par la macro, le temps d’exécution peut être long. A teste, fonctionnel chez moi :

Sub FICHIERS()
Dim FICHIER$, FICHIERS_ARR(), L%
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Feuil1") 'A adapter
    FICHIER = Dir(.[C4] & "\" & "*.xlsx")
    L = 0
    ReDim Preserve FICHIERS_ARR(1, L)
    Do While Len(FICHIER) > 0
        If Right(FICHIER, 4) = "xlsx" Then
            FICHIERS_ARR(1, L) = FICHIER
            Workbooks.Open ([C4] & "\" & FICHIER)
            FICHIERS_ARR(0, L) = Workbooks(FICHIER).Worksheets(1).UsedRange.Rows.Count
            Workbooks(FICHIER).Close False
            L = L + 1
            ReDim Preserve FICHIERS_ARR(1, L)
        End If
        FICHIER = Dir
    Loop
    .Cells(11, 4).Resize(L, 2) = Application.Transpose(FICHIERS_ARR)
End With
Application.ScreenUpdating = True
End Sub

Cdlt,

Merciii infiniment ça a bien marché !!