J'ai trouvé cela en parcourant internet
Sub EnregTOT()
Fichier = Worksheets("accueil").Range("S7") & "-" & Worksheets("accueil").Range("M8") & "-" & "Analyse SPS" & "-" & Worksheets("accueil").Range("E3") & "-" & Format(Date, "dd-mm-yyyy")
f = Application.GetSaveAsFilename(Fichier, "Fichiers Excel en prenant charge les macros (*.xlsm), *.xlsm", , "Save As xlsm file")
End Sub
Le nom de fichier fonctionne parfaitement.
Le format semble être bon, mais au moment d'enregistrer, le fenêtre se ferme, je reste sur mon modèle et le fichier qui "semble" s'être enregistré-sous est introuvable dans le fichier de destination...