Macro imprimer sur excel: code vba
gina
-
gina -
gina -
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
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:
- Macro imprimer sur excel: code vba
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Imprimer tableau excel sur une page - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
2 réponses
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
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
gina
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
