Workbook copy workbook

[Arnaud_Dubarre]

Bonjour à tous

Je viens vers vous car j’ai un petit problème avec le code suivant :

Private Sub Workbook_Open()

    Sheets("BDDTableaux").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    ChDir _
        "C:\Users\dubdu\Bureau"
    Workbooks.Open Filename:= _
        "C:\Users\dubdu\Bureau\Classeur1.xlsm"
    Sheets("BDDtableaux").Select
    Cells.Select
    Selection.Copy

    Windows("Classeur2.xlsm").Activate
    Sheets("Copy_BDDtableaux").Select
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
    Windows("Gestion_Tableaux_v003.xlsm").Activate
    ActiveWindow.Close
'
End Sub

je m’explique en fait j’ai fait un enregistrement de macro pour essayer de comprendre comment ça fonctionne j’ai besoin dans l’exemple que les données qui sont dans le classeur 1 feuilles1 soit copier dans le classeur des son ouverture

Sachant que le classeur 1 lui est fermé

Classeur1.xlsm (8,9 Ko)

Classeur2.xlsm (26,0 Ko)

pouvez-vous m’aider s’il vous plaît pour pouvoir construire ce code correctement et que cela fonctionne je n’arrive pas à trouver la solution j’ai besoin que ça se fasse automatiquement s’il vous plaît merci d’avance

[FFO]

Bonjour

Ci-joint ma proposition

Testes et dis moi

Classeur2.xlsm (33,2 Ko)

[Arnaud_Dubarre]

Bonjour super ça fonctionne merci beaucoup de ton aide