Sub saveas()
'
' saveas Macro
'

'
    ChDir _
        "C:\Users\Propriétaire\Documents\Abattoirs des Crêts\Gestion des stocks\STOCKS JOURNALIERS\STOCKS MENSUEL ABATTOIRS"
    ActiveWorkbook.saveas Filename:= _
        "C:\Users\Propriétaire\Documents\Abattoirs des Crêts\Gestion des stocks\STOCKS JOURNALIERS\STOCKS MENSUEL ABATTOIRS\Stock_" & Date ".xlsm"_
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False