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.

Bonjour Maoune5981, bienvenue sur XLpages.com

Personnellement, et après plusieurs tests, je n'arrive pas à reproduire ton problème sous XL2007 semble-t'il (j'ai essayé en utilisant des fichiers XL2003 d'origine).

Tu devrais peut-être nous joindre un extrait de ton fichier (SANS données confidentielles et 80 Ko maximmum !) qui puisse reproduire l'effet que tu décris... pour qu'on puisse chercher une solution de contournement.

Bien cordialement,