Bonjour,

J'ai repris un programme qui fonctionne très bien afin d'imprimer un pdf plusieurs feuilles Excel.

Sub CreerPDF()
    Dim sRep As String
    Dim sFilename As String

    Sheets(Array("Technical (Front Page)", "Technical (Exec. Sum.)", _
        "Technical (Summary)", "Technical (Def.)")).Select
    Sheets("Technical (Exec. Sum.)").Activate
   
    sRep = ThisWorkbook.Path
    sFilename = ThisWorkbook.Name
    sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & "" & "Technical " & Left(sFilename, Len(sFilename) - 4) & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
End Sub

Le problème que ce programme a été enregistre dans une version antérieure d'Excel :

--> Il y a donc un rapport de compatibilité qui s'affiche à chaque enregistrement du programme.

Si je masque le rapport --> L'impression en pdf ne s'execute que sur la page en cours

Sinon --> J'ai bien les 4 feuilles appelées qui s'impriment

Savez vous pourquoi?

D'avance merci de votre retour.