Message à la fermeture

[bobjazz]

Bonjour le Forum,

Je voudrais mettre un message lorsque je ferme ou enregistre un fichier.
Message suivant " Pensez à mettre à jour le Stock ".

j'ai bien essayé mais je n'arrive pas.
Merci d'avance
Bobjazz

 

[Staple1600]

Re : Message à la fermeture

Bonjour à tous

Mettre ce code dans ThisWorkBook
(pas dans un module standard)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Pensez à mettre à jour le Stock.", _
vbCritical, "Alerte STOCK"
End Sub

 

[bobjazz]

Re : Message à la fermeture

Bonjour Staple1600,

Super
Mais pourquoi ThisWorkBook et non dans un module

Merci

Bobjazz

 

[Staple1600]

Re : Message à la fermeture

Re


Parce que:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

veut bien dire "avant de fermer" (le classeur)

et c'est donc une procédure évenementielle
propre à ThisWorkBook

 

[Guest]

Re : Message à la fermeture

Bonsoir,

A mettre dans le module de feuille:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim rep
    ' On demande si le stock à été mis à jout
    rep = MsgBox("Avez-vous mis le stock à jour?", vbQuestion + vbYesNo, "Aletre Stock")
    ' Si non on annule la fermeture du classeur
    If rep = vbNo Then Cancel = True
    
End Sub

A bientôt

 

[bobjazz]

Re : Message à la fermeture

Bonjour le Forum

Merci à vous tous

Bobjazz

 

[bobjazz]

Re : Message à la fermeture

Bonjour Hasco

Je reviens vers toi, cela ne fonctionne pas, je ne comprend pas.
Je joins un fichier avec le module, mais des que je ferme, je n'ai pas le message.
Merci
Bobjazz

 

[Guest]

Re : Message à la fermeture

Re-Bonsoir

Où est le fichier?

A plus

 

[bobjazz]

Re : Message à la fermeture

Pardon
Voilà le fichier
Bobjazz

 

[Guest]

Re : Message à la fermeture

Voici,

tu avais mis les lignes dans un module 'général' et non dans le module ThisWorkbook.

quand tu es dans l'éditeur de macro, dans l'explorateur de projet (à gauche) ou 'Affichage explorateur de projet'

Double-click sur le module qui s'appelle ThisWorkbook pour ouvrir le module et dans la fenêtre de Droite en haut, liste de gauche choisir WorkBook et dans la liste de Gauche choisir l'évènement 'BeforeClose'

puis insérer tes lignes de codes comme dans le fichier joint.

A +

 

[Staple1600]

Re : Message à la fermeture

Re


C'est ce que je disais à 19h04 😉

Mettre ce code dans ThisWorkBook
(pas dans un module standard)

 

[bobjazz]

Re : Message à la fermeture

Re Staple1600 et Hasco

Je devrais ouvrir mes yeux plus vite

Merci à tous
Bojazz

 

[Guest]

Re : Message à la fermeture

Bonsoir Staple1600

Effectivement, mais visiblemen, il a eu du mal à le faire.

Ceci expliquant cela....

Amicalement