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

Salut le Forum

Ceci fonctionne

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

    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    sRep = ThisWorkbook.Path
    sFilename = ThisWorkbook.Name
    sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
End Sub

Mytå

Salut Myta, le Forum,

Effectivement le code fonctionne à merveille et réponds en tout point à mon problème.

Merci beaucoup Myta pour ta contribution

Fabrice