Application-defined or object-defined error

[Vivi127]

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?

[Theze]

Bonjour,

Remplace "ActiveWorkbook" par "ThisWorkbook"

Hervé.