Erreur de syntaxe

Bonjour, J'ai un souci de syntaxe dans une partie de mon code.

C'est un code pour exporter des factures dans un dossier PDF

A partir de Type jusqu'à openafterpublish:=False c'est écrit en rouge. Et le := est en bleue et clignotte. J'imagine que l'erreur est là??? La seule chose que je sais c'est ce qu'est une syntaxe mais ça ne m'aide pas car je ne connais rien en informatique. J'ai bien laissé un espace entre la, et le _ comme précisé par le site ou j'ai trouvé les info pour le code.

Merci d'avance si vous pouvez m'aider????

Mitchi

Sub Export_en_pdf()
NomDossier = Application.InputBox("Nom du dossier", "Création du dossier", "Entrer le nom du dossier")
Chemin = "C:\Users\miche\Desktop\Factures PDF2024\" & NomDossier & "\"

On Error Resume Next
Dossierexistant = GetAttr(dossier) And vbDirectory

If Dossierexistant = False Then
 MkDir (Chemin)

End If

ActiveSheet.ExportAsFixedFormat_
Type:=xltypePDF, _
Filename:=Chemin&Range("G18").Value&"pdf", _
Quality:=xkqualitystandard, _
includedocproperties:=True, _
ignoreprintareas:False,from:1, to 1, _
openafterpublish:=False

MsgBox ("Le pdf à été créé")

End Sub

Windows / Chrome 130.0.0.0