ThisWorkbook.SaveAs Chemin & NomDuFichier
Sub Test()
Dim Mon_bureau$
Mon_bureau = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
MsgBox Mon_bureau
End Sub
Sub Test_2()
Dim Mon_bureau$
Mon_bureau = Environ("USERPROFILE") & "\Desktop\"
MsgBox Mon_bureau
End Sub