j'ai pas eu de resultas pour ce code pouver vous m'aider?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub SaveTOpdf()
    On Error GoTo 1
   'Enregistrement au format PDF
    Application.DisplayAlerts = False
    MyFile = "d:\Conventions\Conv_" & Me.lst_Fiche.Column(0, ListIndex) & ".PDF"
    Sheets("Conventions").ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile, quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, from:=1, To:=1, openafterpublish:=True
 
1
End Sub