Plusieurs boutons pour une macro avec changement de variable

[spitfire378]

bonjour a tous

j'ai dans un classeur un bouton qui génère cette macro pour des stats en 2008

'----------Copie des Services----------

Windows("stats 2008.xls").Activate

Sheets("patients").Select

Range("H3:H" & [H65000].End(xlUp).Row).Select

Selection.Copy

Windows("Accueil.xls").Activate

Sheets("Feuil2").Select

Range("A2").Select

Selection.PasteSpecial

J'aimerai créer un autre bouton pour créer des stats en 2007 mais je voudrais conserver ce code, et juste modifier le Windows("stats 2008.xls").Activate par Windows("stats 2007.xls").Activate. Est-ce possible de faire ca avec un switch? Merci

 

[pierrejean]

Re : Plusieurs boutons pour une macro avec changement de variable

bonjour spitfire378

quelque chose dans le genre:

sub copie (An as integer)
Windows("stats " & An & ".xls").Activate
...............
end sub
 
pour les boutons:
 
call copie(2008) et
call copie(2007)