Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Salmander

XLDnaute Occasionnel
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 ?
 
Dernière édition:

Efgé

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…