Comment copyr des données d'une feuille vers une autre feuille en utilisant Excel VBA

J'ai des files de données 2 (f1 et f2).

Je dois effacer le contenu dans f1, copyr le contenu de f2 et coller dans f1.

pour lequel j'ai écrit le code suivant, je peux effacer le contenu et pouvoir copyr sur f2 mais impossible de coller dans f1.

J'ai écrit le code suivant

Sub change_charts_data() Dim data_from_tool As Workbook Dim chart_template As Workbook Set data_from_tool = Workbooks.Open("C:\f1.xlsx") Set chart_template = Workbooks.Open("C:\f2.xlsx") For i = 1 To chart_template.Worksheets.Count chart_template.Sheets(chart_template.Worksheets(i).Name).Cells.ClearContents data_from_tool.Sheets(chart_template.Worksheets(i).Name).Cells.Copy chart_template.Sheets(chart_template.Worksheets(i).Name).Range("A1").Select chart_template.Sheets(chart_template.Worksheets(i).Name).Paste Next i End Sub 

Il est en train de lancer l'erreur "La méthode Select de la class de plage a échoué"

S'il vous plait, j'ai besoin de votre aide avec ceci. Je vous remercie!