Sub Sauvegarde_autre_méthode()
Dim sPath As Object: Set sPath = Nothing
Set sPath = CreateObject("Shell.Application").BrowseForFolder(0, "Sélectionner votre dossier de sauvegarde,svp", &H1 Or &H200) 'Self.Path
If sPath Is Nothing Then
MsgBox "Sauvegarde annulée!", vbCritical, "Avertissement"
Else
ThisWorkbook.SaveAs sPath.Self.Path & "\" & InputBox("Nom du fichier?", "Saisie du nom du fichier", "svFichier_" & Format(Now, "hhmmss_") & ".xlsm")
End If
Set sPath = Nothing
End Sub