XL 2010 VBA - Bouton impression PDF avec conditions

[tchi456]

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]

Salut, une recherche ?

 

[tchi456]

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.

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]

Re,

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

 

[tchi456]

Re bonjour kiki29,

C'est exactement ce que je cherchais en vainc.

Merci beaucoup.