XL 2019 Bypasser Before close

  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

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 !

pat66

XLDnaute Impliqué
Bonjour le forum,
J''utilise ces macros, mais je souhaiterai que celle dans Workbook open puisse exécuter Sub annexe en évitant Before close qui interfère avec le msgBox, est ce possible ?

Sub Workbook_Open()
Dim realDate As Variant, ladate As Date
ladate = Date
realDate = Date_net
If realDate <> ladate Then
Call annexe
End If
end sub

Sub annexe()
With ThisWorkbook
.Saved = -1: .ChangeFileAccess 3
Kill .FullName: .Close 0
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ret As Integer
ret = MsgBox("Souhaitez vous fermer sans enregistrer ?", vbYesNo + vbInformation)
If ret = vbNo Then
Cancel = True
Else
ThisWorkbook.Saved = True
End If
End Sub

belle journée

Pat66
 
Dernière édition:
Bonjour le fil,

voila comment je contourne mon problème, la croix rouge ferme sans message et sans enregistrer
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub

ainsi annexe fonctionnera normalement

belle journée
 
Dernière édition:
Bonjour le fil,

voila comment je contourne mon problème, la croix rouge ferme sans message et sans enregistrer
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub

ainsi annexe fonctionnera normalement

belle journée
Bonjour,

Mais dans ce cas, tu n'as plus le message : MsgBox("Souhaitez vous fermer sans enregistrer ?", vbYesNo + vbInformation)
n'était-ca pas ce que tu voulais.
Bref, si cela te convient, c'est parfais. Bon WE
 
- 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

Réponses
4
Affichages
243
Réponses
9
Affichages
201
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Retour