Copier-coller plusieurs feuilles

[silver.beach]

Bonjour à tous,

Je reviens vers vous pour un petit problème:

J'ai 3 fichiers excels :

- Classeur1 ; Feuil1
- Classeur2 ; Feuil2
- Classeur3 ; Feuil3

Je voudrais un bouton dans le classeur3 qui me copie les données des classeurs1 et 2 .

Quelqu'un peut m'aider ?

 

[jetted]

Re : Copier-coller plusieurs feuilles

ceci n'est pas mon code mais tu peux l'adapter

Sub GetDataDemo()
     
    Dim FilePath$, Row&, Column&, Address$
     
     'change les constantes & FilePath  ci-bas pour l'adapter a vos besoin
     '***************************************
    Const FileName$ = "Book1.xls"
    Const SheetName$ = "Sheet1"
    Const NumRows& = 10
    Const NumColumns& = 10
    FilePath = ActiveWorkbook.Path & "\"
     '***************************************
     
    DoEvents
    Application.ScreenUpdating = False
    If Dir(FilePath & FileName) = Empty Then
        MsgBox "The file " & FileName & " was not found", , "File Doesn't Exist"
        Exit Sub
    End If
    For Row = 1 To NumRows
        For Column = 1 To NumColumns
            Address = Cells(Row, Column).Address
            Cells(Row, Column) = GetData(FilePath, FileName, SheetName, Address)
            Columns.AutoFit
        Next Column
    Next Row
    ActiveWindow.DisplayZeros = False
End Sub
 
 
Private Function GetData(Path, File, Sheet, Address)
    Dim Data$
    Data = "'" & Path & "[" & File & "]" & Sheet & "'!" & _
    Range(Address).Range("A1").Address(, , xlR1C1)
    GetData = ExecuteExcel4Macro(Data)
End Function