Macros "enregistrer sous"

Bonjour je souhaite créer une macro pour enregistrer un fichier existant "sous" chaque début de mois; la macro doit insérer dans le nom de fichier la date du 1er jour du mois.

Ci joint un bout de code que j'ai enregistrer avec " & Date" mais cela ne fonctionne pas.

merci de votre aide.

Ceci peut-être ?

nomFichier = "C:\Users\Propriétaire\Documents\Abattoirs des Crêts\Gestion des stocks\STOCKS JOURNALIERS\STOCKS MENSUEL ABATTOIRS\Stock_"
ActiveWorkbook.SaveAs (nomFichier & Format(Now(), "dd-mmm-yyyy") & ".xlsx")

Merci c'est parfait!