Bonjour,
Dans ce cas il te faudra plutôt ce code :
Sub Macro1()
date_actu = DateTime.Day(Date) & "-" & DateTime.Month(Date) & "-" & DateTime.Year(Date)
ChDir "H:\"
ActiveWorkbook.SaveAs Filename:= _
"H:\monnom\mondossier\monresgistre\" & Replace(ActiveWorkbook.Name, ".", " " & date_actu & "."), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Filename est égal à : ton chemin "H:\monnom\mondossier\monresgistre\" auquel on rajoute le résultat de la fonction Replace.
La fonction Replace remplace le . de l'extension du fichier par un espace + la date actuelle + le point, cette fonction est apliquée cette fois, non pas sur le nom entier du fichier (qui contient le chemin), mais sur son nom court (exemple.xlsm par exemple).
Je te laisse voir ça pour ton cas