cathodique
XLDnaute Barbatruc
Bonjour,
J'ai bien trouvé des exemples sur le forum, mais mes tentatives pour adapter ces différents codes ont échoué.
Je voudrai éviter la fermeture du fichier par la petite croix en haut à droite pour fermer excel.
Donc quand je clique sur la croix, un msgbox m'invite à cliquer sur un shapes qui déclenche une macro qui enregistre et quitte excel . Et, c'est ce message qui me gène, il réapparait une seconde fois. je n'ai pas compris pourquoi. je vous remercie beaucoup.
Code dans thisworkbook:
Code macro module standard:
Je voudrai donc qu'en cliquant sur la croix, afficher message et retour sur la feuille "tableau de bord" où se trouve le shapes qui declenchera la macro de fermeture.
Je vous remercie beaucoup.
Cordialement,
J'ai bien trouvé des exemples sur le forum, mais mes tentatives pour adapter ces différents codes ont échoué.
Je voudrai éviter la fermeture du fichier par la petite croix en haut à droite pour fermer excel.
Donc quand je clique sur la croix, un msgbox m'invite à cliquer sur un shapes qui déclenche une macro qui enregistre et quitte excel . Et, c'est ce message qui me gène, il réapparait une seconde fois. je n'ai pas compris pourquoi. je vous remercie beaucoup.
Code dans thisworkbook:
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not flag Then Cancel = True
Sheets(1).Activate 'retour sur la feuille "tableau de bord'
MsgBox "Cliquez sur Sortie!", vbCritical
Exit Sub
End Sub
Code:
Public flag As Boolean
Sub Sortie()
flag = True
Application.DisplayAlerts = False
With ThisWorkbook
.Save
If Workbooks.Count = 1 Then Application.Quit Else .Close
End With
End Sub
Je vous remercie beaucoup.
Cordialement,
Pièces jointes
Dernière édition: