Copier les données du fichier powerpivot à un autre classeur

Bonjour,

Je suis une débutante pour VBA et j'ai un projet de copier les données d'un fichier en powerpivot à un autre classeur par VBA. J'ai écrit la code et il y a un message d'erreur "Incompatibilité de type". Je veux copier les données du fichier wb1 (qui est lié avec Powerpivot) à wb2. Voici les codes:

Dim wb1 as workbook, wb2 as workbook

Set wb1=ThisWorkbook

workbooks(wb1).worksheets("Feuille1").range("A1").Copy

set wb2=workbooks.open (Filename:="C:\ABC\DEF.xlsx"). worksheets("Feuille2")

workbooks(wb2).worksheets("Feuille2").range("A1").PasteSpecial Paste:=xlPasteFormats

Application.CutCopymode=false

L'erreur d'exécution 13 - Incompatibilité de type est sur la ligne: workbooks(wb1).worksheets("Feuille1").range("A1").Copy

Est-ce que vous pouvez m'aider sur ce problème?

Merci beaucoup!