Nom automatique du classeur sans enregistrer

ActiveWorkbook.Name = "CV-" & NumECME & "-" & NumConstat & ""

ActiveWorkbook.Windows(1).Caption = "CV-" & NumECME & "-" & NumConstat & ""

Const MA_FEUILLE As String = "test"

Sub maMacro()
Dim WB As Workbook
Dim WBnew As Workbook
Dim S As Worksheet
Dim MyDate As String
Dim NumConstat
Dim NumECME
Dim A$
Set WB = ActiveWorkbook
Set S = WB.Sheets(MA_FEUILLE)
NumConstat = S.Cells(1, 1).Value
NumECME = S.Cells(2, 1).Value
MyDate = CStr(Format(Now(), "yy"))
A$ = WB.Path & "\" & "CV-" & NumECME & "-" & NumConstat & "_" & MyDate & ".xls"

'--- On stoppe si le classeur est déjà existant ---
On Error Resume Next
Set WBnew = GetObject(A$)
If Not WBnew Is Nothing Then
  MsgBox prompt:="Le classeur ''" & A$ & "'' existe déjà.", _
    Title:="Programme stoppé", Buttons:=vbCritical
  WBnew.Close
  Set WBnew = Nothing
  Exit Sub
End If
On Error GoTo 0
'---------------------------------------------------

WB.SaveCopyAs A$
Set WBnew = GetObject(A$)
WBnew.Windows(1).Visible = True
WB.Close savechanges:=False
Set WB = Nothing
End Sub