XL 2019 recapituler les fichiers excel d'un répertoire en une feuille

[rmjunivers]

Bonjour la famille,

je reçcois les rapports à travers les fichiers Excel nommés différemment sous le même format avec pour chacun un onglet détails je souhaite compiler automatique la feuille détais de chaque fichier dans un fichier Excel unique pour exploitation.

je joins à cette requêtes 2 exemples de rapports excel des journées du 18/04 et 19/04/2026

 

[bakerman2]

Bonjour le forum,

Par curiosité une autre code VBA a essayer:

Sub Recap()
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .InitialFileName = ThisWorkbook.Path & "\"
    If .Show Then Path = .SelectedItems(1)
End With
If IsEmpty(Path) Then Exit Sub
Path = IIf(Right(Path, 1) = "\", Path, Path & "\")
t = Timer
Application.ScreenUpdating = False
With CreateObject("Scripting.FileSystemObject").Getfolder(Path)
    For Each File In .Files
        If Right(File, 4) = "xlsx" Then
            With CreateObject("DAO.DBEngine.120")
                With .OpenDatabase(File, False, True, "Excel 12.0 Xml;Hdr=Yes;")
                    For j = 0 To .TableDefs.Count - 1
                        If Replace(Replace(.TableDefs(j).Name, "$", ""), "'", "") = "Détails" Then
                            Sheets("Récap").Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset .OpenRecordset(.TableDefs(j).Name)
                            Exit For
                        End If
                    Next
                End With
            End With
        End If
    Next
End With
Sheets("Récap").Columns("A:C").AutoFit
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "0.00 \sec")
End Sub

J'ai testé avec 2 fichiers à 450K lignes est sur mon sytème ça prend 11.29s pour 900K lignes.