Recuperer les données de plusieurs feuilles dans une seule f

Bonjour tout le monde

j'ai un classeur de 3 feuilles se trouvant dans deux classeurs .je voudrais récupérer les données des feuilles Feuil1 et Feuil2 du classeur1 et les coller dans Feuil1 du deuxieme classeur.

Jai fait un code mais j'ai toujours une erreur.

Public Sub Transfert_Gric()
Dim classeurSource As Workbook, classeurDestination As Workbook
Dim classeurSource1 As Workbook

Set classeurDestination = ThisWorkbook
Set classeurSource = Application.Workbooks.Open("\\classeur1.xlsx")
classeurSource.Sheets(1).Cells.Copy classeurDestination.Sheets(1).Range("A1")
classeurSource.Sheets(2).Cells.Copy classeurDestination.Sheets(1).Range("U1")

classeurSource.Close

End Sub
43classeur1.xlsx (10.41 Ko)
48test-gric.xlsm (67.54 Ko)

Bonjour

Essaie ce code :

Public Sub Transfert_Gric()

    Dim classeurSource As Workbook, classeurDestination As Workbook
    Dim classeurSource1 As Workbook
    Set classeurDestination = ThisWorkbook
    Workbooks.Open Filename:=ThisWorkbook.Path & "\classeur1.xlsx"
    Set classeurSource = ActiveWorkbook
    classeurSource.Sheets(1).UsedRange.Copy classeurDestination.Sheets(1).Range("R1")
    classeurSource.Sheets(2).UsedRange.Copy classeurDestination.Sheets(1).Range("AI1")
    classeurSource.Close
End Sub

Bye !

Bonjour,

Modifier comme suit :

Public Sub Transfert_Gric()
Dim WsS As Workbook, WsD As Workbook
Set WsD = ThisWorkbook
Set WsS = Application.Workbooks.Open("\\classeur1.xlsx"
WsS.Worksheets(1).Cells.Copy WsD.Worksheets(1).Range("A1")
WsS.Worksheets(2).Range("A1:N10").Copy WsD.Worksheets(1).Range("U1")
WsS.Close
End Sub

...Si nécessaire ajuster la plage "A1:N10"

A+

Merci galopin01 et gmb

Ça marche très bien vos solutions

Rechercher des sujets similaires à "recuperer donnees feuilles seule"