Jonathan1986
XLDnaute Nouveau
Bonjour à tous, Bonjour le forum,
Je me trouve dans une grosse galère, j'espère que quelqu'un aura une idée pour mon problème.
Cela fait deux jours cherche sans relache mais pas moyen de trouver ... 🙁
Bon tout est dans le titre :
Voila j'ai une dans un classeur avec une macro qui exporte le classeur en PDF, cela marche bien sauf qu'il n'y a pas moyen d'avoir les en tetes et pieds de page sur le PDF (Ces dernièrs étant définis automatiquement à l'ouverture du classeur en fonction du contenu de certaines cellules)
Voici le code si cela peut servir :
Private Sub Envoyer()
Dim WB As Workbook
Set WB = ActiveWorkbook
Sheets(Array("PG", "PDTS")).Select
ActiveSheet.PrintOut Filename:= _
"C:\Users\Jonathan Archer\Dropbox\" & _
ActiveWorkbook.Sheets("PG").Range("K11") & ".pdf", Preview:=True, ActivePrinter:="Adobe PDF"
Sheets("PG").Select
WB.Close
End Sub
Merci d'avance
🙂
Je me trouve dans une grosse galère, j'espère que quelqu'un aura une idée pour mon problème.
Cela fait deux jours cherche sans relache mais pas moyen de trouver ... 🙁
Bon tout est dans le titre :
Voila j'ai une dans un classeur avec une macro qui exporte le classeur en PDF, cela marche bien sauf qu'il n'y a pas moyen d'avoir les en tetes et pieds de page sur le PDF (Ces dernièrs étant définis automatiquement à l'ouverture du classeur en fonction du contenu de certaines cellules)
Voici le code si cela peut servir :
Private Sub Envoyer()
Dim WB As Workbook
Set WB = ActiveWorkbook
Sheets(Array("PG", "PDTS")).Select
ActiveSheet.PrintOut Filename:= _
"C:\Users\Jonathan Archer\Dropbox\" & _
ActiveWorkbook.Sheets("PG").Range("K11") & ".pdf", Preview:=True, ActivePrinter:="Adobe PDF"
Sheets("PG").Select
WB.Close
End Sub
Merci d'avance
🙂