Petite modif de macro - Aperçu avant imp selon critères

Anthonymctm · 8 Juillet 2019

Bonjour à tous,

J'ai un macro qui me permet de lancer une impression de toutes mes feuilles selon un critère.

VB:

Sub PrintingChoose()
Dim wb
For Each wb In Worksheets 'ou worbooks pour classeurs worksheets si tu veux parcourir les feuilles au lieu des classeurs
  If wb.Range("Z1").Value = 1 Then  'tu verifies la valeur de la cellule Z1 dans la feuille active lors de l'ouverture du classeur. pour le parcours des feuilles au lieu des classeurs, il faut juste enlever ".activesheet"
    wb.PrintOut 'Lance l'impression du classeur/ de la feuille. Fais juste attention à ce que l'imprimante par défaut soit active
  End If
Next
End Sub

Je souhaite m'en resservir pour un autre classeur mais cette fois je voudrais passer par l'étape aperçu avant impression.
Ca vous parait possible ?

job75 · 8 Juillet 2019

Bonjour,

VB:

wb.PrintPreview

Nota : plutôt que wb il vaudrait mieux utiliser la variable ws (Worksheet).

A+

youky(BJ) · 8 Juillet 2019

Bonjour Anthony,
Au lieu de wb.PrintOut
mettre
wb.PrintPreview
Bruno
Edit bonjour Gérard
Suis souvent grillé

Anthonymctm · 8 Juillet 2019

Merci à vous deux, ça fonctionne

Par contre ça m'affiche onglet par onglet, ce serait possible de tout réunir sur un seul aperçu ? un peu comme si j'imprimais un PDF en quelques sortes

job75 · 8 Juillet 2019

Re, salut Bruno,

Anthonymctm à dit:
Par contre ça m'affiche onglet par onglet, ce serait possible de tout réunir sur un seul aperçu ? un peu comme si j'imprimais un PDF en quelques sortes

Non, si l'on veut un seul aperçu il faut tout mettre dans une seule feuille.

A+

Anthonymctm · 8 Juillet 2019

Ah ça c'est pas possible.

Bon beh merci, je vais débrouiller avec ça alors

Bonne journée

Anthonymctm · 8 Juillet 2019

D'ailleurs, pour l'imprimer c'est ok, ça m'ira; mais pour enregistrer mes onglets sélectionnés en pdf (ou word) c'est possible ?

job75 · 8 Juillet 2019

Tout de même on peut sélectionner ensemble toutes les feuilles concernées comme ceci :

VB:

Sub PrintingChoose()
Dim ws As Worksheet, n%
For Each ws In Worksheets
  If ws.Range("Z1") = 1 Then
    n = n + 1
    ws.Select n = 1
  End If
Next
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Pour créer des fichiers PDF ou Word c'est un autre problème, cherchez sur le forum ou créez une autre discussion.

Petite modif de macro - Aperçu avant imp selon critères

Anthonymctm

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Anthonymctm

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Anthonymctm

XLDnaute Occasionnel

Anthonymctm

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires