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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour