VBA - Copie de feuilles vers autre tableur

fra7878 Messages postés 3 Statut Membre -  
Theo.R Messages postés 585 Statut Membre -
Bonjour,

J'aimerais copier 3 feuilles de mon fichier d'origine vers un fichier de destination (qui existe déjà).

J'ai essayé ceci mais j'obtiens une erreur:

Sub Sample()
Sheets(Array("Sheet2", "Sheet4", "Sheet5")).Copy Workbooks("Book2.xlsx").Sheets(1)
End Sub

Merci pour votre aide.

1 réponse

  1. Theo.R Messages postés 585 Statut Membre 31
     
    Hello

    Pour t'aider, un exemple qui permet de copier dans le doc Classeur1.xlsm les feuilles A et B pour les coller dans le Classeur2.xlsm.

    Sub COPIECOLLE()

    Workbooks("Classeur1.xlsm").Sheets(Array("A", "B")).Select
    Workbooks("Classeur1.xlsm").Sheets(Array("A", "B")).Copy Before:=Workbooks("Classeur2.xlsm").Sheets(1)

    End Sub

    N.B: le Before est bien sur la même ligne juste après Copy
    0