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

tchi456 · 10 Février 2022

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 · 10 Février 2022

job75 à dit:
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 :

VB:

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

job75 · 10 Février 2022

Bonjour tchi456,

Affectez cette macro au bouton :

VB:

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 · 10 Février 2022

job75 à dit:
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 :

VB:

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

tchi456 · 10 Février 2022

Bonjour Job75,

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

Meilleures salutations et bonne journée!

Thierry

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

tchi456

XLDnaute Occasionnel

job75

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Discussions similaires

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

tchi456

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency