Sub sauvegarder()
Dim extension As String
Dim chemin As String,
Dim nomfichier As String
extension = ".xlsm"
chemin = "C:\Users\Greg\Documents\"
nomfichier = ActiveSheet.Range("A6") & extension
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier, FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End With
End Sub