Erreur exportation pdf - document non enregistré

Bonjour !

Ma macro sensée exporter deux feuilles l'une après l'autre en pdf ne fonctionne pas, elle me renvoie systématiquement "document non enregistré". J'ai vu que ca pouvait être un problème de chemin d'enregistrement mais je ne parviens pas à le régler..

Voici ma macro :

Sub EXPORT()

Dim Chemin As String, NomFichier As String

  NomFichier = Sheets("Listeformatee").Range("B1").Value & ".pdf"
  Sheets("Listeformatee").Activate
  Sheets("Listeformatee").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\mattm\Desktop\Client electoral\Modele 1\Principale\Compressé\" & NomFichier _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

  NomFichier = Sheets("Listeformatee").Range("B1").Value & "ARRETE" & ".pdf"
  Sheets("ARRETE").Activate
  Sheets("ARRETE").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\mattm\Desktop\Client electoral\Modele 1\Principale\Compressé\" & NomFichier _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

End Sub

J'ai surement oublié quelque chose..

Merci pour votre aide !

Bonjour,

Teste déjà avec une seule feuille et regarde aussi si dans la cellule B1 il n'y a pas de caractères interdit à un nom de fichier

Merci j'avais effectivement un problème dans ma cellule B1 !