Création d'une copie Sauvegarde en VBA

Bonjour tous le monde,

Je souhaite avoir un code VBA qui permet de créer une copie que des feuilles "Feuil3" et "Feuil4" et les mettres dans un autre workbook.

Ci-joint le fichier de travail.

Merci à vous,

Bonjour,

Il suffit d'utiliser l'enregistreur de macros cela vous donne un code, qu'il faut ensuite peaufiner.

j'ai essayé de le faire mais il ya 2 fichiers enregistrées, pouvez vous me corriger le code svp ? :)

Sub deuxonglets()

Application.DisplayAlerts = False

Sheets(Array("Menu", "Feuil7")).Select
Sheets(Array("Menu", "Feuil7")).Copy
ActiveWindow.Activate

Fichier = "C:\UsersDesktop\TEST" & "_" & Format(Time, "hhmmss") & ".xls"
ThisWorkbook.SaveAs Fichier

ActiveWorkbook.SaveAs Filename:=Fichier, _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Application.DisplayAlerts = True

End Sub

Merci d'avance

Re,

Lors de la copie des 2 onglets, un nouveau classeur se créé automatiquement et devient l'actif

Donc il faut utiliser ActiveWorkbook

Sub deuxonglets()
Application.DisplayAlerts = False
Sheets(Array("Menu", "Feuil7")).Copy
Fichier = "C:\UsersDesktop\TEST" & "_" & Format(Time, "hhmmss") & ".xls"
With ActiveWorkbook
  .SaveAs Filename:=Fichier,  FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub

@+