Sub Enreg_Pdf()
Dim theDate As String, sigleC As String, typeM As String
On Error Resume Next
'Attention de bien mettre le dernier backslash "\" à la fin du chemin !
'Ou le mettre entre le chemin et la date comme l'exemple plus bas
chemin = InputBox("Entrez le chemin" _
& Chr(13) & Chr(13) & "Exemple : C:\Users\PDF\", "Chemin de sauvegarde")
If chemin = "" Then Exit Sub
theDate = Format(Date, "ddmmyyyy")
sigleC = Range("A2").Value
typeM = Range("A5").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=chemin & theDate & "_" & typeM & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=chemin & "/" & theDate & "_" & typeM & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True
End Sub