[XL-2016] Enregistrement PDF MACRO

Bonjour, je cherche à enregistrer mes graphiques sous le format PDF depuis un bouton avec une boite de dialogue deja crée, je n'arrive pas à créer un chemin pour l'enregistrer sous.

Pourriez - vous m'aider ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Private Sub conversionpdf_Click()
 
Dim fichier As String
    'adaptez le nom de la feuille
    With Worksheets(graphiquetemperature.Value)
            fichier = "Import - Export Fichier CSV - TXT - graphique - 3.xlsm" & Range("D4").Value & ".pdf"
        'pensez a ecrire le chemin
        Chemin = "C:\Users\PC PACO\Desktop\BTS MASEN\Projet BTS\TRANSFERT\pdf méteo " & "\graphiquetemperature.pdf" & fichier
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
 
End Sub