XL 2013 Impression/enregistrement sélection de différentes feuilles sur une page

[klems29]

Bonjour tout le monde,

Je cherche à automatiser via une macro (sur un bouton) l'impression de différentes sélection de différentes feuilles Excel sur une même page.


Pour le moment j'ai la macro suivante :

Sub imprime()
    Application.ActivePrinter = ActivePrinter
    Selection.PrintOut Copies:=1, ActivePrinter:=ActivePrinter, _
    Collate:=True
End Sub

Sub Printmodif12()
'
' Print Macro
'

'
        With Sheets("Ana1")
        .Activate
        .Range("A1:E18").Select
        Call imprime
        End With
                With Sheets("Ana2")
                .Activate
                .Range("E29:K45").Select
          Call imprime
                End With
        With Sheets("Ana3")
        .Activate
        .Range("O26:V72").Select
    Call imprime
        End With


End Sub

La macro imprime bien mes sélection, mais par logique, elle ne regroupe pas ces différentes sélection sur une page.

Je vous remercie par avance

 

[Lone-wolf]

Re : Impression/enregistrement sélection de différentes feuilles sur une page

Bonjour klems et bienvenue sur XLD

Tu copie les plages dans une feuille vierge comme ceci sans tous ces Selects (On dirait que Microsoft ne connaît pas Malboro ou Camel)

Sheets("Ana1").Range("A1:E18").Copy Sheets("Feuille Vierge").Range("a2")
Sheets("Ana2").Range("E29:K45").Copy Sheets("Feuille Vierge").range("a22")
Sheets("Ana3").Range("O26:V72").Copy Sheets("Feuille Vierge").range("a41")
Application.Wait(Now + TimeValue("0:00:03")) 
Sheets("Feuille Vierge").PrintOut

 

[klems29]

Re : Impression/enregistrement sélection de différentes feuilles sur une page

Bonjour Lone-Wolf.

Merci pour cette réponse.

Je crois mettre compliqué la vie en effet.