Bonjour à tous,

J'ai un fichier contenant plusieurs onglets. A l'aide d'un bouton j'aimerai enregistrer 3 de ses onglets sous le même fichier pdf.

J'ai écrit le petit bout de code suivant:

Private Sub Generate_Report_Click()

Dim EventsName As String
Dim Rep As String

Application.ScreenUpdating = False
'On Error Resume Next

EventsName = Sheets("Events Settings").Cells(4, 4)
Rep = ThisWorkbook.Path & "\Engineering Report"

Sheets(Array("Report Cover", "Performance Report", "Reliability Report")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Rep & EventsName & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    
Sheets("Menu").Activate

Application.ScreenUpdating = True

End Sub

Mon problème est qu'un seul des onglets (le premier nommée dans la procédure) est enregistré en pdf.

J'ai essayé plusieurs expressions différentes pour remplacer l'ActiveSheet:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Mais en fonction de l'expression choisie, j'ai des erreurs type 1004, 424 ou 438. Seule l'expression ActiveSheet ne plante pas la procédure.

Une idée?

Merci d'avance pour vos remarques.

Cdlt,

Fabrice