Copier onglet dans classeur

Bonsoir à tous ,

Voila je voudrai savoir comment faire à partir d'un bouton pour copier mon onglet actif dans un classeur ayant pour nom une variable qui a pour valeur le nom d'une agence saisie dans une cellule de mon onglet actif . J'ai codé mon propre VBA mais l'avant dernière ligne me pose problème car cela ne fonctionne pas:

Private Sub CommandButton7_Click()
Dim Agence As String
Agence = Range("B7").Value
Workbooks.Open Filename:="C:\Users\Damien\Desktop\" & Agence & ".xlsx"
Workbooks("MAQUETTE.xlsm").Activate
Sheets("MAQUETTE").Select

Sheets("MAQUETTE").Copy After:=Workbooks("& Agence.xlsx").Sheets(1)

End Sub

Merci par avance pour votre aide

Bonsoir,

Private Sub CommandButton7_Click()
    Dim Agence As String
    Agence = Range("B7").Value & ".xlsx"
    Workbooks.Open Filename:="C:\Users\Damien\Desktop\" & Agence
    Workbooks("MAQUETTE.xlsm").Sheets("MAQUETTE").Copy After:=Workbooks(Agence).Sheets(1)
End Sub

Cordialement.

Merci beaucoup !!! C'est très gentil de votre part

Bonne soirée .

Rechercher des sujets similaires à "copier onglet classeur"