Enregistrer un pdf dans un dossier différent

VBA
2

Bonjour,
Teste avec cette macro

Sub tutu()
MsgBox "Cela suppose que vous avez créé dans un dossier Check Liste, merci. Isabelle", vbExclamation, "Dans le dossier C:\Check Liste"

Dim NomDossier As String
Dim CheminDossier As String

On Error GoTo 1

NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "C:\Check Liste\" & NomDossier & "\"
                

If NomDossier = "" Then Exit Sub

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CheminDossier & "Check liste ouverture de salle_" & Range("D4").Value & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-mm") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Votre Check liste a bien été enregistrée au nom de Check liste ouverture de salle (" & Range("D4") & "). Vous pouvez Cliquer sur le bouton CLOSE, Merci . Isabelle"
1:
End Sub