Macro d'Impression de plusieurs zones du classeur

SAlutations,

Dans mon classeur, j'aimerais pouvoir cliquer sur un bouton qui automatiserait l'impression de plusieurs zones des feuilles de ce classeur.

Exemple, en cliquant sur le bouton, il lancerait une macro pour :

Imprimer sur une 1er page, la zone (C20:J50) de la feuil2 du classeur

sur la 2e page, la zone (D18:D40) de la feuil3 du classeur

sur la 3e page, la zone (AA6:AJ50) de la feuil4 du classeur

sur la 4e page, la zone (M7:T40) de la feuil5 du classeur

Il ne faut pas que le contenu de la feuil2 et celui de la feuil3 soit sur la même page imprimée, 1 page imprimée par sélection.

Je précise que les zones d'impression des différentes feuilles ont été fixées avec la mise en page.

Quant à l'imprimante à utiliser, doit-elle aussi être précisée ou peut-elle varier selon l'utilisateur ?

Est-ce possible ?

Apparemment, la réponse est non.

Bonjour,

Tu nommes les plages à imprimer. Admettons, Zone1, Zone2, etc...

Ensuite tu tentes ce code :

Sub imprimerZone1()
Sheets("feuil2").Range("zone1").printOut
Sheets("feuil3").Range("zone2").printOut
End Sub

Cdlt.

Merci. Ceci fonctionnerait aussi ?

Sub imprimerZone1()
Sheets("feuil2").Range("C20:J50").printOut
Sheets("feuil3").Range("AA6:AJ50").printOut
End Sub

Re,

Je pense

A tester chez toi.

J'ai bien une imprimante, et pourrait tester la chose, mais le papier coûte

Cdlt.

Voilà, j'ai testé cela fonctionne à moitié...

Sub imprimertout()
Sheets("feuil1").Range("E2:G6").PrintOut
Sheets("feuil2").Range("D19:H23").PrintOut
Sheets("feuil3").Range("L13:O18").PrintOut
End Sub

Sur ce test (voir ce fichier ici bas), il m'imprime les zones demandées des trois feuilles sur trois pages distinctes, c'est parfait ! MAIS par contre, il ne m'inscrit que la donnée E2 pour la feuil1, la donnée D19 pour la feuil2 et la donnée L13 pour la feuil3.

Par contre, il m'imprime bien le cadre qui entoure les zones.

J'ai remis le bon fichier

Re,

Un nouvel essai avec ce code (à adapter) :

Sub Impression()

    Sheets("Feuil1").Select
    Range("E2:G6").Select
    ActiveWorkbook.Names.Add Name:="Zone1", RefersToR1C1:="=Feuil1!R2C5:R6C7"
    Sheets("Feuil2").Select
    Range("D19:H23").Select
    ActiveWorkbook.Names.Add Name:="Zone2", RefersToR1C1:="=Feuil2!R19C4:R23C8"
    Sheets("Feuil3").Select
    Range("L13:O18").Select
    ActiveWorkbook.Names.Add Name:="Zone3", RefersToR1C1:= _
        "=Feuil3!R13C12:R18C15"
    ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub

Re,

Pas vu le dernier message.

Il faut enregistrer ton fichier en xlsm (non pas en xlsx) pour l'enregistrement des macros.

Cdlt

C'est parfait ! Problème résolu...

Merci à toi Jean-Eric

RE,

Tu me dois trois feuilles A4 et l'encre utilisée

Cdlt

Jean-Eric a écrit :

RE,

Tu me dois trois feuilles A4 et l'encre utilisée

Cdlt

lol. Je t'offre un verre virtuel et ma gratitude.

Pour le fichier, je l'ai enregistré en .xls tout simplement (il doit être compatible avec l'excel03 du travail).