Sub Export_PDF()
Dim objShell, LeNom$, strPath$
Set objShell = CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("MyDocuments") & "\"
LeNom = Sheets("controle").[Y1]
ActiveSheet.ExportAsFixedFormat xlTypePDF, strPath & LeNom & ".pdf"
End Sub