XL 2019 Bypasser Before close

[pat66]

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

 

[Laurent78]

Bonjour,
Je ne comprends pas bien la logique (utiliser BeforeClose pour dans certain cas le contourner ...).
Pourquoi ne pas mettre dans annexe ThisWorkbook.Saved = True ?
Cdlt

 

[pat66]

Bonjour,

en fait tu as raison, je me suis mal exprimé, mais si en faisant ce que tu dis ThisWorkbook.Saved = True dans Annexe cela suffit à fermer le classeur sans le message de Before, c'est parfait, je vais tester

merci

 

[pat66]

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

 

[Laurent78]

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

 

[pat66]

Bonsoir Laurent,

oui mais je constate que je ne peux fermer le classeur en évitant le message de confirmation, donc je le supprime, c'est pas grave

merci quand même