Action quand fermeture excel

Fermé
maelig33 - 26 mai 2009 à 11:15
 Clara - 22 oct. 2009 à 11:24
Bonjour,

Je voudrais affecter une macro à la fermeture de mon fichier excel.
C'est-à-dire, que quand je clic sur la croix pour sortir de mon fichier ca lance la macro souhaitée et après ca ferme le fichier. Est-ce possible?

Merci d'avance

maelig33

3 réponses

Giorgiolino Messages postés 251 Date d'inscription vendredi 15 mai 2009 Statut Contributeur Dernière intervention 2 mars 2015 52
26 mai 2009 à 12:54
Bonjour,

ce que tu cherches à faire relève de la programmation évènementielle. ça me semble
possible en passant par un script VBA.
Il s'agira d'ajouter le code de ta macro après celui de la fonction Workbook_Close()
qui correspond à l'action de fermeture du document.

Exemple :
Private Sub Workbook_Close()
msgbox "le fichier est fermé!"
end sub

affiche le message "le fichier est fermé" avant de le fermer effectivement.

Plus d'infos sur ce site --> http://cherbe.free.fr/EVENEMENT.html


Bon codage.
1
C'est bon, j'ai trouvé.
Le code est en fait : Private Sub Workbook_BeforeClose(Cancel As Boolean)
0
J'ai trouvé.
Le code est en fait : Private Sub Workbook_BeforeClose(Cancel As Boolean)
...............
End Sub
merci encore
0
Giorgiolino Messages postés 251 Date d'inscription vendredi 15 mai 2009 Statut Contributeur Dernière intervention 2 mars 2015 52 > maelig33
26 mai 2009 à 16:56
De rien.

Effectivement puisque ton action doit être effectuée avant la fermeture, c'était plutôt BeforeClose comme tu as fini par trouver.

Bonne continuation en tout cas.

0
Re

Tout d'abord, merci de m'avoir répondu.
Je suis désolée mais le code donné ne fonctionne pas du tout.
Ca ne m'affihce même pas le message : le fichier est fermé.
Vois-tu pk ca ne marche pas? As-tu une autre idée?
Merci d'avance

maelig33
0
Peux tu rep a ce mes.
car je n'ai pas suivre les reponse spar mail sur le précedent.
merci
maelig33
0
En fait il faut que tu mettes ce code

Private Sub Workbook_BeforeClose(Cancel As Boolean)

msgbox("le fichier est fermé")

End Sub

mais il faut que tu l'écrives dans "this worbook" sinon sa ne marchera pas.

Bonne journée !
0