XL 2010 VBA - Bouton impression PDF avec conditions

tchi456 · 28 Septembre 2022

Bonjour,

Je souhaiterais créer un bouton pour pouvoir imprimer en PDF la feuille active mais que ça imprime (format A3 paysage) uniquement les lignes ou il y a quelque chose de noté et en répétant sur chaque feuille PDF les lignes 1 à 8 (ligne vide N°4 également).

Pouvez-vous m'aider?

Le fichier ci-dessous est verrouillé par mot de passe et c'est un point "."

Mes meilleures salutations,

Thierry

kiki29 · 28 Septembre 2022

Re,

VB:

ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & _
                                               Format(Date, "yyyymmdd") & "_" & [E1].Value

kiki29 · 28 Septembre 2022

Salut, une recherche ?

tchi456 · 28 Septembre 2022

Bonjour kiki29,

Merci pour votre aide sur la répétition des titres.

J'imaginais un code comme ceci mais il ne fonctionne pas. Je souhaiterais créer le PDF directement dans le même dossier ou se trouve mon fichier excel.

VB:

Sub BoutonImprimerPDF()

Sheets(Array("AMDEC", "Notation des risques")).Select

ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & _
Format(Date, "yyyymmdd") & [E1].Value & "\PDF.pdf"

Sheets(1).Select
End Sub

Meilleures salutations,

Thierry

kiki29 · 28 Septembre 2022

Re,

VB:

ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & _
                                               Format(Date, "yyyymmdd") & "_" & [E1].Value

tchi456 · 28 Septembre 2022

Re bonjour kiki29,

C'est exactement ce que je cherchais en vainc.

Merci beaucoup.

XL 2010 VBA - Bouton impression PDF avec conditions

tchi456

XLDnaute Occasionnel

Pièces jointes

kiki29

kiki29

XLDnaute Barbatruc

Pièces jointes

tchi456

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Discussions similaires