Comment imprimer 2 feuilles ensemble ?

Le
Gouap
Bonjour à tous,

Je voudrais remplacer les 2 lignes suivantes par une ligne de code qui me
sélectionnerait les 2 feuilles puis une autre qui me lancerait l'impression.

Sheets("Feuil1").PrintOut
Sheets("Feuil2").PrintOut

Est ce possible ?

@+
Philippe
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gouap
Le #21082471
Merci, c'est la commande "Array" que je ne connaissais pas.
C'est Bon ça fonctionne !

Tant que j'y suis, comment fait on pour passer des paramètres à PrintOut ?
dans l'aide il est fait mention du nombre d'exemplaires, mais Exemplaires:=6
Excel connait pas :)

@+
Philippe

"FdeCourt"
Salut,

Avec un bout de code de ce type :

Sheets(Array("Feuil1", "Feuil2")).Select
Sheets(Array("Feuil1", "Feuil2")).PrintOut

ou

With Sheets(Array("Feuil1", "Feuil2"))
.Select
.PrintOut
End With

Cordialement,

F.


FdeCourt
Le #21082461
Salut,

Avec un bout de code de ce type :

Sheets(Array("Feuil1", "Feuil2")).Select
Sheets(Array("Feuil1", "Feuil2")).PrintOut

ou

With Sheets(Array("Feuil1", "Feuil2"))
.Select
.PrintOut
End With

Cordialement,

F.
michdenis
Le #21082641
Feuil1.Printout Copies:=6
FFO
Le #21083061
Salut à toi

Peut être comme ceci :

Sheets(Array("Feuil1", "Feuil2")).Select
ActiveWindow.SelectedSheets.PrintOut

Dis moi !!!!!
Gouap
Le #21083241
Merci michedenis,
Toujours là pour me dépanner !

@+
Philippe


"michdenis"

Feuil1.Printout Copies:=6




Gouap
Le #21083231
Merci de ton aide FFO,
Ca fonctionne aussi !

@+
Philippe

"FFO"
Salut à toi

Peut être comme ceci :

Sheets(Array("Feuil1", "Feuil2")).Select
ActiveWindow.SelectedSheets.PrintOut

Dis moi !!!!!



Publicité
Poster une réponse
Anonyme