XL 2019 Evolution fichier

[Quicksland]

Bonjour a tous 😉

Dans le fichier ci-joint je souhaiterai si possible un msbox ou texbox a la fermeture du fichier avec la phrase

"AVEZ-VOUS PENSÉ A DÉDUIRE VOS COMMANDES DE PIC-NIC?? MERCI" avec "oui" ou "non" a cliquer

si je clique "oui" le fichier s'enregistre et se ferme si je clique "non" le fichier reste ouvert

le fichier a un mot de passe " UPC-LM22 "

Le fichier contient déjà une macro qui récupère des infos d'un autre fichier

Merci d'avance pour l'aide 🙏

 

[sylvanu]

Bonjour Quicksland,
Essayez en mettant cette macro dans ThisWorkBook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Réponse
Réponse = MsgBox("AVEZ-VOUS PENSÉ A DÉDUIRE VOS COMMANDES DE PIC-NIC?? MERCI", vbQuestion + vbYesNo)
If Réponse = vbNo Then Cancel = True: Exit Sub
End Sub

 

[mapomme]

Re,

Dans le module de ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim reponse
   reponse = MsgBox("Avez-vous pensé à déduire vos commandes de pique-nique ? Merci.", vbQuestion + vbYesNo + vbDefaultButton2)
   If reponse <> vbYes Then Cancel = True: Exit Sub
   If Not ThisWorkbook.Saved Then ThisWorkbook.Save
End Sub

nota : pique-nique en français, picnic en "grand-breton".

 

[Quicksland]

Bonjour Quicksland,
Essayez en mettant cette macro dans ThisWorkBook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Réponse
Réponse = MsgBox("AVEZ-VOUS PENSÉ A DÉDUIRE VOS COMMANDES DE PIC-NIC?? MERCI", vbQuestion + vbYesNo)
If Réponse = vbNo Then Cancel = True: Exit Sub
End Sub

Bonjour @sylvanu ,

Merci pour ta réponse 😉

Malheureusement cela ne fonctionne pas 🙁

J'ai mis le code dans ThisWorkbook a la suite d'un code séparer par une ligne

Doit-je faire autre chose !?

En tout cas merci de ton aide

 

[wDog66]

Bonjour @sylvanu ,
Merci pour ta réponse 😉
Malheureusement cela ne fonctionne pas 🙁
J'ai mis le code dans ThisWorkbook a la suite d'un code séparer par une ligne
Doit-je faire autre chose !?
En tout cas merci de ton aide

Bonjour à tous

Comment ça, le code de sylvanu ne fonctionne pas 🤔😝

L'avez-vous mis dans ThisWorkbook de cette façon !?

 

[sylvanu]

Re,
Peut être n'ai je pas compris la demande.
A tester.

 

[Quicksland]

Re,
Peut être n'ai je pas compris la demande.
A tester.

Re,

Cela fonctionne parfaitement bien 😉

Je te remercie pour ton aide 😉

Merci également a @wDog66 ,@mapomme

​

Ps je n'ai pas compris pourquoi cela n'a pas fonctionner quand j'ai mis le code que tu m'as donné
surtout que je l'ai placé au même endroit que toi 🙁

 

[TooFatBoy]

Hopla !

Juste une question histoire de ramener mon grain de sel, d'étoffer mes connaissances, et au passage de dire bonjour particulièrement à Quicksland :
Le : Exit Sub est-il vraiment inutile ici ? 😉