Bonjour JYP,
je pense que ceci devrais faire l'affaire (XL 97)
Sub Savedd()
Dim mypath As String
ChDrive "G" 'peut etre inutile, depend du type de DD, pour moi G est un lecteur reseau et je dois le mettre.
ChDir "G:\essai XL\" 'chemin par defaut
mypath = ActiveWorkbook.Application.GetSaveAsFilename("Nom par defaut", "Excel Files (*.xls),*.xls", , "Mets ici le titre de la fenetre")
If mypath = "False" Then ActiveWorkbook.SaveCopyAs FileName:=spath
' tu devras peut etre remplacer False par Faux ?
End Sub
A++, Sylsyl.