Macro d'export PDF HS

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

Bonjour,

je suppose que c'est ici que cela plante ? incompatibilité de type ...

    strFile = ActiveWorkbook.Path & "\Syntheses_Communes\" & Application.VLookup(Range("commune").Value, ActiveWorkbook.Sheets("Listes").Range("A:F"), 6) & ".pdf"

quel est le nom que tu veux attribuer au fichier ? Il n'y a pas plus simple ?

Bonjour

Merci pour ta réponse Steelson.

En fait, dans ma boucle, il y avait des valeurs nulles d'où une url fausse.

Problème résolu !