Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment imprimer 2 feuilles ensemble ?

6 réponses
Avatar
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

6 réponses

Avatar
Gouap
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" a écrit dans le message de news:

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.


Avatar
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.
Avatar
michdenis
Feuil1.Printout Copies:=6
Avatar
FFO
Salut à toi

Peut être comme ceci :

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

Dis moi !!!!!
Avatar
Gouap
Merci michedenis,
Toujours là pour me dépanner !

@+
Philippe


"michdenis" a écrit dans le message de news:


Feuil1.Printout Copies:=6




Avatar
Gouap
Merci de ton aide FFO,
Ca fonctionne aussi !

@+
Philippe

"FFO" a écrit dans le message de news:

Salut à toi

Peut être comme ceci :

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

Dis moi !!!!!