Macro extraction de données

Bonjour,

J'aimerais pouvoir extraire des données de fichiers différents correspondant à plusieurs jours et les recopier dans un autre fichier les uns à la suite des autres.

J'avais déjà essayé de développer une macro, mais je bloque au moment du collage des données dans le fichier d'extraction.

Je joins des fichiers à titre d'exemple mais qui ont la même logique.

Merci d'avance.

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Option Explicit

Dim dico As Object, dicoD As Object, tablo, tabloD As Range, f As Worksheet
Dim chemin$, nomFichier, classeur As Workbook, derLn&

Sub Extraire()

    Set dico = CreateObject("Scripting.Dictionary")
    Set dicoD = CreateObject("Scripting.Dictionary")
    Set f = ActiveSheet
    Application.ScreenUpdating = False
    f.Range("A1").CurrentRegion.Offset(1, 0).Clear

    chemin = ThisWorkbook.Path & "\Données\"
    nomFichier = Dir(chemin & "*.xls*")
    Do While Len(nomFichier) > 0
        If Left(nomFichier, 5) = "Stock" Then
            Set classeur = Workbooks.Open(chemin & nomFichier)
            Set tabloD = Range("A2:C" & Application.Max(2, Range("A" & Rows.Count).End(xlUp).Row))
            derLn = f.Range("A" & Rows.Count).End(xlUp)(2).Row
            tabloD.Copy f.Range("A" & derLn)
            classeur.Close False
        End If
        nomFichier = Dir
    Loop
End Sub

Bye

Bonsoir gmb,

Oui j'ai réussi à l'adapter à mes fichiers merci beaucoup pour ton aide ça fonctionne parfaitement !