Bonjour,
Je ne comprends pas vraiment ta question...
Tu veux pouvoir modifier le chemin d'enregistrement à la volée?
Dans ce cas,
Dim chemin as string
chemin = Application.GetSaveAsFilename
If (chemin <> 'Faux') Then 'Faux est retourné si l'utilisateur annule
ActiveSheet.Copy
ActiveWorkbook.SaveAs chemin
ActiveWorkbook.Close
End If
Ainsi, à l'exécution, la macro ouvrira une boîte de choix qui te permettra de modifier ton chemin selon tes besoin.
Bonne continuation!
Yan