Bonjour Jonathan,
il faut spécifier le chemin,
Sub Macro1()
Dim chemin As String, Nom As String
chemin = "C:\monRépertoire\"
Nom = Worksheets("Dispensettes").Range("I2") -> défintion du nom
ActiveWorkbook.SaveAs chemin & Nom & ".xlsm", fileformat:=52
End Sub
pour info:
51 = xlOpenXMLWorkbook (without macro's in 2007-2016, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2016, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2016 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2016, xls)