Macro pour enregistrer en PDF

Bonjour à tous.

Il y a quelques temps, j'avais sollicité votre aide pour m'aider à construire une macro me permettant d'enregistrer en PDF.

Voici le sujet en question :

https://forum.excel-pratique.com/excel/macro-pour-imprimer-en-pdf-t70259.html

J'avais fini par trouver la solution grâce à votre aide.

Cet après-midi, j'ai voulu utiliser ma macro et j'ai une fenêtre de débogage qui apparait m'informant de "Erreur d'exécution "1004": Erreur définie par l'application ou par l'objet"

Je clique sur déboguer et la ligne ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin est indiquée en jaune.

J'ai tenté quelques modifications sans résultat.

Quelqu'un peut-il m'aiguiller dans mes recherches pour tenter de résoudre le problème ?

J'ai tenté en modifiant le chemin du dossier, mais sans résultat...

Je joints le fichier.

D'avance, un grand merci.

Sub DessinPDF()
    Fichier = Range("D2") & ".pdf"
    Dossier = "Volumes:SERVEUR-ADMIN:017 REFERENT:07 Gestion d'utilisateurs:01 Rapport annuel:2016:Dessin:"
    Chemin = Dossier & Fichier

    ActiveSheet.PageSetup.PrintArea = "$A$4:$S$50"
    choix = MsgBox("Imprimer tout ?", vbQuestion + vbYesNoCancel + vbDefaultButton2, "ImpressionDessin")
    If choix = vbCancel Then Exit Sub
    If choix = vbNo Then
        ' sauvegarder la feuille en PDF
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin
        ActiveSheet.PageSetup.PrintArea = ""
    Else
        ' sauvegarder tout en PDF
        Application.ScreenUpdating = False
        savSelection = [D2]
        For Each c In [DonnéesDessin[Clé]]
            [D2] = c.Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin
        Next c
        [D2] = savSelection
    End If
    ActiveSheet.PageSetup.PrintArea = ""
End Sub