Créer un PDF via VBA

Bonjour, je souhaite créer un PDF via VBA, le code a marché une fois et puis plus,

VBA indique une erreur de syntaxe , voici mon code :

Sub PDF_Click()

sRep = "C:\Users\Desktop\" ' localisation de la sauvegarde

sFilename = "Audit_énergétique" & TextBox3.Value & "pdf" ' nom du fichier

Worksheets("Macro1").PageSetup.PrintArea = "$A$1:$E$15" 'zone d'impression

Worksheets("Macro1").PageSetup.Orientation = xlLandscape 'format en payasage

'on lance l'export

Worksheets("Macro1").ExportAsFixedFormat

Type:=xlTypePDF, _

Filename:=sRep & sFilename, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True

'on annule setup

Worksheets("Macro1").PageSetup.PrintArea = vbNullString

Worksheets("Macro1").PageSetup.Orientation = vbNullString

End Sub

Voyez vous une erreur de syntaxe ?

Merci.

Bonjour,

Oui, il manque un souligné :

après ExportAsFixedFormat

ExportAsFixedFormat _

Private Sub PDF_Click()

sRep = "C:\Users\Desktop\" ' localisation de la sauvegarde

sFilename = "Audit_énergétique" & TextBox3.Value & "pdf" ' nom du fichier

Worksheets("Macro1").PageSetup.PrintArea = "$A$1:$E$15" 'zone d'impression

Worksheets("Macro1").PageSetup.Orientation = xlLandscape 'format en payasage

'on lance l'export

Worksheets("Macro1").ExportAsFixedFormat_

Type:=xlTypePDF, _

Filename:=sRep & sFilename, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True _

'on annule setup

Worksheets("Macro1").PageSetup.PrintArea = vbNullString

Worksheets("Macro1").PageSetup.Orientation = vbNullString

End Sub

ça ne marche toujours pas ...

il faut un espace devant ton _

ça me marche vraiment pas.. Je joins mon fichier, pouvez_vous regarder s'il vous plait ?