XL 2010 Difficulté avec Workbook_BeforeClose

[jm.andryszak]

Bonjour
Dans un projet, j'ai besoin d'interdire l'option ANNULER dans Workbook_BeforeClose.
Ainsi je laisse le choix à l'utilisateur de sauvegarder ou non les modifications
à l'aide d'un message qui s'affiche 15 secondes.

Cependant en fermant le fichier ce message s'affiche 4 fois
ce qui n'est pas le but attendu, il ne devrait s'afficher qu'une fois.

Comment puis-je résoudre cette difficulté, je n'ai rien trouvé malgré beaucoup de recherches.
Ci-joint une extrait du fichier.
PS : J'espère avoir bien déclaré MessageBoxTimeout car je suis en WIN32
En vous remerciant par avance

 

[jm.andryszak]

Oups, J'ai enfin trouvé
Mauvais copier coller dans la Function MsgBoxTimer
Ensuite il faut utiliser la procédure Auto_Close pour s'affranchir de Workbook_BeforeClose
Bonne journée

 

[Halffy]

Oups, J'ai enfin trouvé
Mauvais copier coller dans la Function MsgBoxTimer
Ensuite il faut utiliser la procédure Auto_Close pour s'affranchir de Workbook_BeforeClose
Bonne journée

Bonjour jm.andryszak,

Si je puis me permettre, tu nous dis que tu as solutionné ton problème, soit...
Mais perso, je serais particulièrement intéressé par ton code (afin de compléter mes maigres connaissances en VBA, si tu n'y voyais pas d'objection?)
Cordialement, Halffy /.

 

[jm.andryszak]

Bonjour
Ci-joint le fichier
PS : J'espère avoir bien déclaré l'API MessageBoxTimeout pour les 64 bits.
Chez moi ça marche mais je suis en WIN32 et je ne peux pas tester en 64 bits.
Cordialement

 

[Halffy]

Bonjour
Ci-joint le fichier
PS : J'espère avoir bien déclaré l'API MessageBoxTimeout pour les 64 bits.
Chez moi ça marche mais je suis en WIN32 et je ne peux pas tester en 64 bits.
Cordialement

Re,
Merci pour le retour du code;
effectivement j'ai une "Incompatibilité de type" concernant le traitement de MsgBoxTimer /
Je vais donc essayer de régler le problème
Bon dimanche à toi.

 

[Halffy]

Voilà, résolu...

Il fallait déclarer en As Variant, au lieu de As Integer, soit:
"Dim Reponse As Variant" en remplacement de "Dim Reponse As Integer".

Encore Merci pour le code
Cordialement /.

 

[jm.andryszak]

Merci pour le retour
Je prends bien note de la déclaration de Dim Reponse, merci.
Cordialement