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

Salmander · 11 Octobre 2022

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.

VB:

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 · 11 Octobre 2022

bonjour
essayez ajouter

Thisworkbook.Close

Efgé · 11 Octobre 2022

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

VB:

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 · 11 Octobre 2022

pierrejean à dit:
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

VB:

Cancel = True

Et ça marche

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

Salmander

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Salmander

XLDnaute Occasionnel

Discussions similaires