Afficher message à la fermeture d'excel : Résolu

[guigus]

Bonjour à tous ,

je souhaite afficher un message d'avertissement à la fermeture d'un classeur excel si des conditions ne sont pas remplies.

Mais je n'arrive déjà pas à passer dans le programme lors de la fermeture du fichier Excel.

Voici la version simplifiée de ce que j'ai écrit (copié/collé d'un exemple trouvé sur le forum):

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Worksheets("A").Cells(1, 1) = "" Then
MsgBox "Veuillez renseigner la cellule A1", vbOKOnly + vbInformation, "Message d'information"
Cancel = True ' cancel = True : la procédure de fermeture aborte
Exit Sub
End If
End Sub

Est ce que j'ai oublié quelque chose?
Je ne comprends pas pourquoi le message d'erreur ne s'affiche pas (la cellule A1 étant bien vide...)

Merci pour votre aide

 

[Dranreb]

Re : Afficher message à la fermeture d'excel

Bonjour.
Non, à priori je ne vois pas pourquoi ça ne marche pas.
Ma première idée a été que Application.Enablevents est accidentellement resté à False
Ma seconde que le niveau de sécurité est trop élevé pour exécuter quoi que ce soit.
Mettez un point d'arret au début et deroulez en pas à pas.
À+

 

[Arpette]

Re : Afficher message à la fermeture d'excel

Bonjour Guigus, dans le fichier joint ça fonctionne. Le code est dans ThisWorkbook.
@+

 

[néné06]

Re : Afficher message à la fermeture d'excel

Bonjour guigus

Est tu certain que ta cellule (1,1) est bien à ""?
Vérifie avec

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Stop
End Sub

ou avec le "pas à pas"

A+

 

[phlaurent55]

Re : Afficher message à la fermeture d'excel

Bonjour à tous,

une autre possibilité: le code n'est pas au bon endroit
voir fichier joint

à+
Philippe

 

[guigus]

Re : Afficher message à la fermeture d'excel

Bonjour à tous,

une autre possibilité: le code n'est pas au bon endroit
voir fichier joint

à+
Philippe

Super !

Merci phlaurent55, effectivement je ne l'avais pas placé au bon endroit. J'avais essayé de mettre le code dans une feuille du classeur et dans un module mais pas dans la feuille "thisworkbook" (Je suis débutant en programmation...).

Au passage, pour en savoir un peu plus, quelle est la différence entre ces 3 "emplacements" où l'on peut écrire du code?

 

[guigus]

Re : Afficher message à la fermeture d'excel

Merci Arpette,

j'ai trouvé la solution dans ton fichier et dans celui de phlaurent55. Je n'avais pas écrit le code sur la bonne feuille.