Enregister en Pdf

Bonjour,

Je cherche à automatiser l'enregistrement d'une feuille Excel 2003 en Pdf et j'ai testé ce code mais ceci ne fonctionne pas. Quand j'ai cherché sur les forum, il me semble que ce code ne fonctionne pas sur Excel 2003. Y a t-il d'autre possibilité? quelqu'un a t-il une idée?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Imprime_Pdf() Imprime_Pdf Macro ' Enregistre en format pdf Dim Client As String, LeRep As String Client = Range("e10").Value LeRep = ThisWorkbook.Path & "\Clients_AGENCES\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ LeRep & ActiveWorkSheet.Name & "_" & Client & ".pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ From:=1, To:=1, OpenAfterPublish:=False     End Sub

---

Cordialement,

Bruno

Bonjour

L'export natif en PDF n'est apparu qu'à partir de la version 2007 (c'est ce que fait ce code).

Pour les versions antérieures, une grande discussion sur le sujet avec de nombreux exemples :

http://www.developpez.net/forums/d43...ro-pdfcreator/

Philippe

Merci beaucoup Philippe! Ceci a résolu mon problème