XL 2016 Erreur dans fonction VBA

[Stéphanie1981]

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]

Salut, plus lisible ...

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]

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

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