Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Fermeture michdenis

1 réponse
Avatar
News Microsoft
MichDenis,
A Propos de mon fil fermeture, j'ai trouvé cela et CA MARCHE
Public BolSortie As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = BolSortie End
Sub

Private Sub Workbook_Open()

BolSortie = True

End Sub

?

Sub sortir()

BolSortie = False

Me.Close

End Sub

Je mets la sub sortie sur un Btn

Pascal

1 réponse

Avatar
MichDenis
Bonjour,

Bien sûr, on peut procéder aussi de cette façon !


"News Microsoft" a écrit dans le message de groupe de discussion :
eD9KDN$
MichDenis,
A Propos de mon fil fermeture, j'ai trouvé cela et CA MARCHE
Public BolSortie As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = BolSortie End
Sub

Private Sub Workbook_Open()

BolSortie = True

End Sub

?

Sub sortir()

BolSortie = False

Me.Close

End Sub

Je mets la sub sortie sur un Btn

Pascal