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

[Anthonymctm]

Bonjour à tous,

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

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]

Bonjour,

wb.PrintPreview

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

A+

 

[youky(BJ)]

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

 

[Anthonymctm]

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]

Re, salut Bruno,

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]

Ah ça c'est pas possible.

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

Bonne journée

 

[Anthonymctm]

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]

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

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.