Erreur d'Export feuille au format PDF

Bonsoir chers tous

Je voudrais enregistrer une feuille Excel au format pdf .

Je lance mon code mais un message d'erreur me revient : " document non enregistré"

Sub Sauvegarder_Registre_Inventaire()
Application.ScreenUpdating = False
Dim chemin As String, i, Ls As Long
Dim fichier As String, F As Worksheet
chemin = ThisWorkbook.Path & "\Registres Inventaire\" 'à adapter
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
    Application.ScreenUpdating = False
fichier = Sheets("Menu").Range("A5") & "_ REG_INV CMU" & Format(Sheets("Menu").Range("A4"), "mmmm yyyy")
    With Sheets("Registre inventaire")
    Application.ScreenUpdating = False
    .Range("$P$7:$Q$238").AutoFilter Field:=2, Criteria1:="<>0"
    .PageSetup.PrintArea = ""
    .PageSetup.LeftMargin = Application.InchesToPoints(0.118110236220472)
    .PageSetup.RightMargin = Application.InchesToPoints(0.118110236220472)
    .PageSetup.PrintArea = .Range("$A$1:$P$242").Address
    .PageSetup.PrintTitleRows = "$7:$7"
    '.PageSetup.Orientation = xlPortrait
    .PageSetup.Orientation = xlLandscape
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesTall = False
    .PageSetup.FitToPagesWide = 1
    .PageSetup.RightFooter = "&P de &N"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             chemin, Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    .AutoFilterMode = False
End With
End Sub

L'erreur est signalée ici :

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             chemin, Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Bonjour KTM

comme le chemin de départ contient un espace , en ajoutant Chr(34) de part et d'autre de la variable chemin, cela pourrait mieux fonctionner

Merci mais ça ne marche toujours pas !!