VBA - Copie de feuilles vers autre tableur
fra7878
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Theo.R Messages postés 575 Date d'inscription Statut Membre Dernière intervention -
Theo.R Messages postés 575 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- VBA - Copie de feuilles vers autre tableur
- Copie cachée - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Somme tableur - Guide
1 réponse
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
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