Sub Enregistrer()
'
Dim chemin, nom
nom = Sheets(2).Range("B4").Text
chemin = "C:\"
fileSaveName = Application.GetSaveAsFilename(chemin & nom, FileFilter:="Fiche suiveuse (*.xlsm), *.xlsm")
If ActiveWorkbook.Name = "2012 blabla" Then
If fileSaveName <> False Then
ActiveWorkbook.SaveAs fileSaveName, xlOpenXMLWorkbookMacroEnabled
MsgBox "Fiche suiveuse " & nom & " enregistree dans le dossier " & chemin, vbInformation, "Enregistrement reussi"
End If
Else
ActiveWorkbook.Save
End If
End Sub