message à la fermeture d'un classeur

Bonjour

essaies ceci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox('Avez-vous pensé à enregistrer ?', vbYesNo) = vbNo Then Cancel = True
End Sub

Bonsoir pascal,
Impeccable c'est l'effet souhaité mais peut t'on remplacer Yes par Ok tout en conservant la fonction du No.
Merci.
@+.

Bonsoir CrisCris, Pascal76,

? CrisCris,
Je pense que Non ce n'est pas possible et en plus non souhaitable. Les arguments employés sont une liste finie définie par excel (tu en verras la liste et les valeurs dans l'aide VBA en tapant MsgBox - fonction.
Pas souhaitable car il est toujours recommandé de garder les interfaces habituelles que l'utilisateur rencontre dans Office, Le OK est destiné à valider la lecture d'un message et pas de répondre à une question, on signale une chose et l'utilisateur répond OK (dans le sens de : Vu). Le Oui ou le Non induisent la notion de choix délibéré, il y a donc une profonde différence.
Sinon, tu peux toujours construire un USF perso ou tu mettras les boutons que tu veux avec les libéllés voulus, mais bon...

bonne soirée,

Bfr

Salut Bricofire,
Merci pour ta réponse : je ne l'avais pas vu sous cet angle. Je vais rester je pense sur la macro de pascal.
Merci et bonne soirée.

Re

Merci Bricofire d'avoir fait une explication si détaillée. J'avais décroché tôt hier soir mais vu ta réponse j'ai bien fait car j'aurais été moins explicite

Bonne journée