XL 2010 Bouton imprimer certaines feuilles en PDF avec aperçu

[tchi456]

Bonjour,

Je souhaite créer un bouton pour pouvoir imprimer en PDF que deux feuilles (Feuilles nommées "Diagramme" et "Capacité") de mon classeur avec un aperçu avant impression.

Avez-vous une solution qui pourrait m'aider?

Mes meilleures salutations,

Thierry

 

[job75]

Bonjour tchi456,

Affectez cette macro au bouton :

Sub PDF()
Dim a, w As Worksheet
a = Array("Diagramme", "Capacité")
For Each w In Sheets(a): w.PrintPreview: Next
Sheets(a).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\PDF.pdf"
Sheets(1).Select
End Sub

Peut-être y a-t-il moyen de créer un aperçu avec 2 pages pour éviter la boucle.

A+

 

[job75]

Bonjour tchi456,

Peut-être y a-t-il moyen de créer un aperçu avec 2 pages pour éviter la boucle.

Oui, comme ceci :

Sub PDF()
Sheets(Array("Diagramme", "Capacité")).Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\PDF.pdf"
Sheets(1).Select
End Sub

 

[tchi456]

Bonjour Job75,

Votre code fonctionne parfaitement bien. Merci beaucoup pour votre aide.

Meilleures salutations et bonne journée!

Thierry