Enregistrer une copie de deux feuille d'un classeur dans un autre nouveau classeur

abousaad

XLDnaute Junior
Bonsoir à tous.
J'ai créé un bouton que je souhaiterai utiliser pour enregistrer deux feuilles d'un classeur dans un autre nouveau. J'ai commencé un petit code mais lorsque je l'exécute, il enregistre tout le classeur!!
Pourriez vous m'aider à compléter ce code vba pour qu'il enregistre juste deux feuilles.
NB. le bouton est sur la feuil4
Merci d'avance pour votre aide.
 

Pièces jointes

  • classeur1.xlsm
    22.6 KB · Affichages: 69
  • classeur1.xlsm
    22.6 KB · Affichages: 79
  • classeur1.xlsm
    22.6 KB · Affichages: 73

Papou-net

XLDnaute Barbatruc
Re : Enregistrer une copie de deux feuille d'un classeur dans un autre nouveau classe

Bonsoir abousaad,

Remplace tout simplement :

Code:
Sheets("feuil1").Select
Sheets("feuil2").Select
Par :

Code:
Sheets(Array("Feuil1", "Feuil2")).Copy
Cordialement.
 

Discussions similaires