macro imprimer sur excel: code vba

Question

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

michel_m · Answer

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

michel_m · Answer

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

Macro imprimer sur excel: code vba

2 réponses

Discussions similaires

Newsletters