Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Impression de plusieur onglets dans un seul spool

Impression de plusieur onglets dans un seul spool

2 réponses
Avatar
Sébastien XL
Bonjour,

Je suis actuellement bloqué sur un problème d'impression.

Je souhaite imprimer quatres onglets sur six dans un seul spool, de manière
à les convertir en PDF grâce à Cute PDF.

Structure du classeur :
- page 1 : à imprimer
- page 2 : à imprimer
- page 3 : cachée à ne pas imprimer
- page 4 : à imprimer
- page 5 : cachée à ne pas imprimer
- page 6 : à imprimer

Ci dessous la macro que j'utilise pour imprimer

Sheets(Array("Suivi dossier", "PT", "AE", "DL")).Select
Sheets("Suivi dossier").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Lorsque je lance la macro, l'impression créé trois spool dans lesquels on
trouve :
- SPOOL 1 : Page 1, Page 2
- SPOOL 2 : Page 4
- SPOOL 3 : Page 6

donc lorsque je sélectionne CutePDF comme imprimante, il me demande de
saisir trois nom de fichiers ... d'où mon problème.

J'ai essayé de voir dans les propriétés des feuilles, rien ne les distingue.
J'ai essayé de recopier dans un nouveau classeur les onglets, le problème
persiste.

Merci pour votre aide
--
XL 03
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MB
Bonjour

et un truc comme ça ça le ferai pas
Range("A1:C10").Select
Sheets(Array("Feuil1", "Feuil2")).Select
Sheets("Feuil2").Activate
Range("B16:E24").Select
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Sheets("Feuil2").Activate
Range("C4:F17").Select
fichier> imprimer >sélection
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

Cordialement

Michel BERTRAND
Avatar
Sébastien XL
J'ai essayé le subterfuge et cela ne donne rien,
d'autres idées.


Bonjour

et un truc comme ça ça le ferai pas
Range("A1:C10").Select
Sheets(Array("Feuil1", "Feuil2")).Select
Sheets("Feuil2").Activate
Range("B16:E24").Select
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Sheets("Feuil2").Activate
Range("C4:F17").Select
fichier> imprimer >sélection
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

Cordialement

Michel BERTRAND