XL 2016 Erreur dans fonction VBA

Stéphanie1981 · 21 Août 2024

Bonjour,

Quelqu'un peu m'aider j'ai une erreur dans cette fonction qui est en rouge.

Sub SaveToPdf()
'
' SaveToPdf Macro
'

'
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("P6").Value & ".pdf"
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=TrueQuality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas
:=False, OpenAfterPublish:=True
Application.DisplayAlerts = True

End Sub

Merci

kiki29 · 21 Août 2024

Salut, plus lisible ...

Code:

Sub SaveToPdf()

    Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=ThisWorkbook.Path & "\" & Range("P6").Value & ".pdf", _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=True, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=True
    Application.DisplayAlerts = True

End Sub

Tjs consultable : Liste Contributions PDF

sylvanu · 21 Août 2024

Bonjour Stéphanie, Kiki,
Si vous ne désirez qu'un fichier standard sans options particulières, vous pouvez simplifier ainsi :

VB:

Sub SaveToPdf()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=ThisWorkbook.Path & "\" & Range("P6").Value & ".pdf", _
                                    Quality:=xlQualityStandard
End Sub

XL 2016 Erreur dans fonction VBA

Stéphanie1981

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires