Sub Enreg_Pdf()
Dim Nomfichier As String, chemin As String
NomFichier = Format(Now() - 1, "yymmdd")
Chemin = "c:\documents\dossier_"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub