Autres Modèle se sauve 2 fois (Résolu)

[Salmander]

Bonjour,
j'ai un souci avec un modèle avec macro que je veux enregistrer sans macros.
Un .xltm que devient .xlsx

Il me fait bien la sauvegarde en .xlsx mais veut ensuite me faire un .xlsm une fois la macro terminée.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim NomSave As String

    NomSave = "Classeur1.xlsx"
 
    Application.EnableEvents = False
    Application.DisplayAlerts = False
  
    ActiveWorkbook.SaveAs NomSave, FileFormat:=xlOpenXMLWorkbook
    ThisWorkbook.Saved = True

    Application.DisplayAlerts = True
    Application.EnableEvents = True

End Sub

Qu'ai-je bien pu rater ?

 

[pierrejean]

bonjour
essayez ajouter

Thisworkbook.Close

 

[Efgé]

Bonjour @Salmander
Bonjour @pierrejean
Surtout pour saluer @pierrejean

Il y a deux classeurs différents ( ActiveWorkbook et ThisWorkbook) ?
Dans ce cas essai la proposition de @pierrejean

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim NomSave As String

    NomSave = "Classeur1.xlsx"
 
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    
    ActiveWorkbook.SaveAs NomSave, FileFormat:=xlOpenXMLWorkbook
    ThisWorkbook.Close , False

    Application.DisplayAlerts = True
    Application.EnableEvents = True

End Sub

Sinon cela demande explications…

Cordialement

 

[Salmander]

bonjour
essayez ajouter

Thisworkbook.Close

Mais je ne veux pas fermer le fichier.
Ce que cette instruction fait parfaitement cela dit.

@Efgé : C'est une erreur, quand j'ai recopié la partie de mon code qui ne me plaisait pas.
Il n'y a qu'un seul fichier et c'est ActiveWorkbook que j'utilise

Cancel = True

Et ça marche