Information a la fermeture

[Jean Marc Duroy]

Bjr,

Je voudrais savoir comment faire pour afficher un message d'information, lors de la fermeture de Excel.

Merci et bon week end.

 

[@Christophe@]

Bonjour

Bon, ben tu ouvres ton fichier, tu fais ALT+F11 pour ouvrir visual basic

Dans la partie de gauche tu devrais voir Feuil1; feuil2,... ThisWorkbook

Tu double clic sur ThisWorkbook

Et tu colle le code suivant dans la fenêtre de droite qui s'ouvre après avoir double cliqué sur ThisWorkbook:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Bonne journée"
End Sub

Et maintenant avant te fermé tu auras se message

Bonne journée

@Christophe@

 

[Jean Marc Duroy]

Rebjr,

Merci pour la manip. Maintenant le souci que j'ai cest que jai un mot de passe sur VBA project. Je nai donc pas acces au detail. Je ne comprend pas d'ailleurs car j'ai mis des mots de passe sur la fauille et le classeur. Que j'ai otées, mais la il me dde un mot de passe. Suis embete!!!

Comment il doit faire le gars ?

 

[Jean Marc Duroy]

J'ai essaye cela fonctionne. Maintenant est il possible de leur laisse un choix ?
Cad, si oui tout est rempli, alors il peut sortir du prog, si non retourner dans Xcel ?

Merci

 

[@+Thierry]

Salut Jean Marc


Voici un code qui fera ce que tu veux et un peu plus...


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Msg1 As Byte
Dim Msg2 As Byte

Msg1 = MsgBox("Voulez Vous QUITTER ce Classeur", vbYesNo, "Attention FERMETURE")
If Msg1 = 6 Then
Msg2 = MsgBox("Voulez Vous SAUVER ce Classeur", vbYesNo, "Attention FERMETURE")
If Msg2 = 6 Then
'Application.Quit
ThisWorkbook.Save 'On sauve
Else
'Application.Quit
ThisWorkbook.Saved = True 'On fait croire que c'est sauvé... mais çà ne l'est pas !! (lol)
End If

Else: Cancel = True
End If
End Sub


Si je ne mets pas cette instruction 'Application.Quit en acticve mais en commentaire... c'est juste pour montrer où la place le cas échéant si tu veux aussi fermer Excel...

Bon Aprèm
@+Thierry