Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strNomFichier As String
Const strNomInterdit As String = "MODELE.xlsm"
Application.EnableEvents = False
' Si PM B3 non vide, alors on utilise ce nom pour enregistrer.
If Sheets("PM").Range("B3") <> "" Then
ActiveWorkbook.SaveAs Filename:="C:\Users\Tsixte\Desktop\TEST\" & Sheets("PM").Range("B3")
Exit Sub
End If
strNomFichier = Application.GetSaveAsFilename(fileFilter:="Microsoft Office Excel Workbook (*.xlsm), *.xlsm")
strNomFichier = Mid$(strNomFichier, InStrRev(strNomFichier, "\") + 1)
If UCase$(strNomFichier) = UCase$(strNomInterdit) Then
MsgBox "Pour Sauvegarder ... Merci de modifier le Nom du Fichier", vbCritical, "Stop"
Else
ActiveWorkbook.SaveAs strNomFichier
End If
Cancel = True
Application.EnableEvents = True
End Sub