Bonjour à tous
J'avais réalisé une macro d'export PDF sous Excel 2007 qui fonctionnait très bien.
Récemment, je suis passé en Office 2016 et ma macro ne fonctionne plus. Je ne sais pas si c'est lié.
Le débogueur m'indique que le problème se situe sur la ligue "ActiveSheet.ExportAsFixedFormat", mais je sèche complètement.
Pour info, cette macro est lancée d'une boucle.
Si quelqu'un a une idée !
Sub CREA_PDF()
'
' CREA_pdf Macro
' Création d'un fichier PDF de l'état d'avancement de toutes les communes
'
Dim strFile As String
ActiveWorkbook.Title = "Etat d'avancement des contrôles sur domaine privé (" & Range("Commune").Value & ")"
strFile = ActiveWorkbook.Path & "\Syntheses_Communes\" & Application.VLookup(Range("Commune").Value, ActiveWorkbook.Sheets("Listes").Range("A:F"), 6) & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ActiveWorkbook.Title = "Etat d'avancement des contrôles sur domaine privé"
End Sub