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 : Sélectionner tout - Visualiser dans une fenêtre à part
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