Application-defined or object-defined error

Bonjour à tous,

J'ai créé une simple fonction liéée à un bouton afin de quitter l'application sans sauvegarder en un seul clic.

Voici le code:

Code:

---

1 2 3 4 5

Function Quit(ByVal control As IRibbonControl)   ActiveWorkbook.Close False   End Function

---

Cela fonctionne parfaitement quand il n'y a qu'une seule fenêtre Excel ouverte mais à partir du moment où un autre classeur est ouvert et que je clique sur le bouton, j'ai le message "Application-defined or object-defined error"

Quelqu'un sait-il d'où vient mon erreur?

Bonjour,

Remplace "ActiveWorkbook" par "ThisWorkbook"

Hervé.