Sub saveas()
Dim Nom As String
Dim Chemin As String
Const Cible = &H5
Dim objShell As Object
Dim objFolder As Object, objFolderItem As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Cible)
Set objFolderItem = objFolder.Self
Chemin = objFolderItem
Nom = Range("H1").Value
ThisWorkbook.saveas Chemin & Nom & ".xls"
End Sub