Private Sub CommandButton1_Click()
Macro1
Copie
End Sub
Private Sub CommandButton1_Click()
Macro1 [COLOR=darkgreen]'crée la copie de la feuille
[/COLOR]Copie [COLOR=darkgreen] 'renomme etc
[/COLOR]End Sub
Sub TestMacro()
' TestMacro Macro
' Macro enregistrée le 31/03/2007 par Jean Marie
Sheets("Menu").Select
Sheets("Menu").Copy After:=Sheets(4)'[COLOR=Green]ici on pourrait mettre à la
place du [/COLOR][COLOR=Green][COLOR=Blue]4[/COLOR] ,Sheets.count[/COLOR]
Sheets("Menu (2)").Select
Sheets("Menu (2)").Name = "Menu 2" [COLOR=Green]'ici on pourrait mettre à la
place du [/COLOR][COLOR=Green][COLOR=Blue]"Menu 2"[/COLOR] "Relevé" & Year(Date)[/COLOR]
Range("A1").Select
End Sub