Merger trois feuilles dans un seul workbook

Bonjour les amis !

Je suis encore newby dans ce forum et je voulais vous poser une problématique que j'ai rencontré.

Il m'a été amené de fais la tâche suivante :

j'ai trois fichiers excels : 1.xls; 2.xls et 3.xls et je voudrais créer un nouveau fichier excel dont la feuille est composé respectivement des fichiers 1, 2 et 3 (en respectant l'ordre bien sûr).

Des pistes de réflexions svp ?

Merci pour votre coopération !

Bonjour

copier les cellules du fichier 1

puis les cellules du fichier 2

puis les cellules du fichier 3

puis trier afin d'obtenir l'ordre souhaité

Vous pouvez donner un exemple s.v.p ?

bonjour

un exemple de quoi ?

copier/coller des cellules ?

Peut être que j'ai oublié de spécifier qu'il s'agit d'une macro Vba

bonjour,

une proposition,

supposition : les feuilles de chaque classeur à copier portent le même nom et les classeurs doivent être ouverts avant lancer la macro. La macro doit se trouver dans le classeur de destination.

Sub aargh()
    i = 1
    Set wst = ThisWorkbook.Sheets("sheet1") ' adapter le nom de la feuille destination
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            Set ws = wb.Sheets("sheet1") ' adapter le nom de la feuille source
            dlws = ws.Cells(Rows.Count, 1).End(xlUp).Row
            ws.Rows(1 & ":" & dlws).Copy wst.Rows(i)
            i = i + dlws
        End If
    Next
End Sub

y a pas moyen de ne pas avoir à les ouvrir ? :/

Bonsoir,

voici

Sub aargh()
    i = 1
    Set wst = ThisWorkbook.Sheets("sheet1")    ' adapter le nom de la feuille destination
    ldc = "book1.xlsx,book2.xlsx,book3.xlsx" ' adapter la liste des classeurs à ouvrir
    For Each wbn In Split(ldc, ",")
        Set wb = Workbooks.Open(wbn)
        Set ws = wb.Sheets("sheet1")    ' adapter le nom de la feuille source
        dlws = ws.Cells(Rows.Count, 1).End(xlUp).Row
        ws.Rows(1 & ":" & dlws).Copy wst.Rows(i)
        i = i + dlws
        wb.Close
    Next
End Sub

Merci bcp ça a marché !