Plusieurs boutons pour une macro avec changement de variable

spitfire378 · 18 Juillet 2008

bonjour a tous

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

Code:

'----------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 · 18 Juillet 2008

Re : Plusieurs boutons pour une macro avec changement de variable

bonjour spitfire378

quelque chose dans le genre:

Code:

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

Plusieurs boutons pour une macro avec changement de variable

spitfire378

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Discussions similaires

Plusieurs boutons pour une macro avec changement de variable

spitfire378

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency