J'ai employé l'équivalent numérique
Si lExcelVersion > 11 puis
Type d'ActiveSheet.ExportAsFixedFormat : =0, nom de fichier : = _
« C:\Book1.pdf », qualité : =0, _ d'IncludeDocProperties
: =True, IgnorePrintAreas : =False, OpenAfterPublish : =False
Finir si