Sujet Précédent Sujet Suivant

Macro imprimer sur excel: code vba

Fermé
gina - 21 oct. 2009 à 10:57
 gina - 22 oct. 2009 à 10:45
Bonjour,

je suis débutant en VBa excel et je souhaite avoir un code VBA qui me permet d'imprimer des feuilles. ce code s'executerai sur le clique d'un bouton que je nomme "imprimer". J'ai commencé un code (voir ci dessous) j'essaie d'imprimer les 9 feuilles de mon classeur avec la fonction sheets array mais sans succés :

Sheets(Array("feuille 1", "feuille 2", "feuille 3", "feuille 4",_
"feuille 5", "feuille 6",_"feuille 7", "feuille 8", _
"feuille 9", "feuille 10", "feuille 11", "feuille 12",_)
)Select.
Sheets("feuille 1").Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("feuille 2").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("feuille 1").Select


SVP aidez moi
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 oct. 2009 à 11:20
bonjour
apparemment, tu as 2007 car tu utilises l'instruction "ScrollWorkbookTabs Position" que je n'ai pas trouvé sur XL2003: à quoi sert elle ? est elle nécessaire pour imprimer tes feuilles ?

essaies ce code 
liste = Array("feuille 1", "feuille 2", "feuille 3", "feuille 4", _
"feuille 5", "feuille 6", _
"feuille 7", "feuille 8", _
"feuille 9", "feuille 10", "feuille 11", "feuille 12")

For cptr = 0 To UBound(liste)
    Sheets(liste(cptr)).PrintOut
Next
1
gina
21 oct. 2009 à 16:05
en fait j suis pas sur 2007 mais 2003 merci pr la réponse j ai essayé mais la macro n imprime que la &ère page
0
Réponse 2 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 oct. 2009 à 16:30
Je viens d'essayer chez moi, ca marche...

les noms que tu as marqué dans l'array doivent correspondre au nom d'onglet
D'origine, tu as "feuil1" et non "feuille 1", "feuil2" et non "feuille 2" etc
0
gina
21 oct. 2009 à 22:46
ok j suis une vraie quiche! lol merci je vais retester demain au taf je te tiens au courant c super gentil
0
gina
22 oct. 2009 à 10:45
j'ai réessayé ça marche merci bcp bonne journée à toi!!!
0

Discussions similaires

A3 paysage en deux A4...est-ce possible?
nikoss -
Lilo -

10 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses