Imprimer plusieurs pages discontinues avec vba

Bonjour,
J'ai une feuille Excel qui contient 4 onglets dont un, que l'on nommera "Feuil1", qui contient 500 pages et un autre onglet "impression" pour imprimer les pages de l'onglet "Feuil1".
Lorsque je dois imprimer plusieurs pages continues de l'onglet "Feuil1", j'éxécute le code ci dessous
En B1 : j'indique la première page à imprimer et en B2, la dernière page à imprimer

Code:

---

1 2 3 4 5 6 7

Sub Impression() Sheets("feuil1").Select   ActiveWindow.SelectedSheets.PrintOut From:=Sheets("impression").Range("B1"), To:=Sheets("impression").Range("B2"), Copies:=1, _ PrintToFile:=False, Collate:=True   End Sub

---

Mais lorsque je dois imprimer plusieurs pages discontinues, ce code n'est pas approprié car je dois à chaque fois imprimer page par page. Ce qui est fastidieux.
Existe il un code vba où je puisse insérer les numéros de pages discontinues à imprimer et executer le code

Merci de votre aide

Bonjour
Utilise l'enregistreur de macro
Dans la boîte de dialogue "imprimer" , coche "Feuilles sélectionnées"
Regarde comment a été écrit le code. Cela t'indiquera ce que toi, tu dois écrire.

Bonjour Unparia,
Tout d'abord , merci de te pencher sur mon problème :)

J'ai essayé l'enregistrement de macro mais cela n'apporte rien car dans la boite de dialogue "imprimer" du fichier Excel, l'option page permet d'imprimer soit page par page ou bien un nombre de page continue.
Ci dessous, une impression d'écran de l'option imprimer pour Excel
Pièce jointe 334132

Ce que je voudrais, c'est pouvoir accéder à l'option qui se trouve dans Word ou on peut imprimer une liste de page discontinue à imprimer.
Ci dessous, une impression d'écran de l'option page sur Word
Pièce jointe 334134

Je ne sais pas comment tu te "débrouilles" ...
L'empoté devenu sénile que je suis :
- lance l'enregistreur de macros
- sélectionne les onglets Feuil3 et Feuil5
- clique sur fichier
- dans la boîte de dialogue qui s'ouvre, il coche ce qui lui convient (et plus particulièrement "Feuilles sélectionnées")
- arrête l'enregistreur de macros
Et voilà ce qu'a écrit l'enregistreur :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro4() ' ' Macro4 Macro '   ' Sheets(Array("Feuil3", "Feuil5")).Select Sheets("Feuil3").Activate ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,2,,,TRUE,,FALSE)" End Sub

---

Je dois alors être très chanceux, hein ...

Petite remarque liminaire : tu peux remplacer ceci :

Citation:

---

Code:

---

1 2	Sheets("feuil1").Select ActiveWindow.SelectedSheets.PrintOut

---

---

Par

Code:

---

Sheets("feuil1").PrintOut

---

Mais si ta feuille s'appelle "impression", il est étrange que dans ton code elle s'appelle "feuil1".

Citation:

---

Envoyé par facteur

Mais lorsque je dois imprimer plusieurs pages discontinues, ce code n'est pas approprié car je dois à chaque fois imprimer page par page. Ce qui est fastidieux.

---

Plusieurs solutions.

la plus simple est de dupliquer ta ligne PrintOut pour avoir autant d'impressions que de zone.

Autre méthode qui découle de celle-ci mais en moins fastidieux : tu te crées une liste dans une autres feuille avec deux colonnes : une indiquant le début de chaque zone et une indiquant la fin (l'équivalent de tes B1-B2).
Tu fais une boucle qui scrute toutes les lignes de cette liste avec ton PrintOut à l'intérieur de la boucle.

Sinon, tu peux aussi utiliser une zone d'impression, mais tu risques d'avoir des sauts de page qui ne seront pas au bon endroit.
https://msdn.microsoft.com/fr-fr/lib.../ff198233.aspx

Salut, peut être en adaptant ceci à ton contexte : Impression de plusieurs plages non contiguës dans un PDF

Bonjour Tout le monde,
la solution de menhir avec une boucle a été une tres belle idée.

Citation:

---

Tu fais une boucle qui scrute toutes les lignes de cette liste avec ton PrintOut à l'intérieur de la boucle.

---

Je peux enfin imprimer plusieurs pages discontinues.
merci pour votre aide.