Action quand fermeture excel

maelig33 -  
 Guez -
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
A voir également:

3 réponses

Giorgiolino Messages postés 253 Date d'inscription   Statut Contributeur Dernière intervention   52
 
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
maelig33
 
C'est bon, j'ai trouvé.
Le code est en fait : Private Sub Workbook_BeforeClose(Cancel As Boolean)
0
maelig33
 
J'ai trouvé.
Le code est en fait : Private Sub Workbook_BeforeClose(Cancel As Boolean)
...............
End Sub
merci encore
0
Giorgiolino Messages postés 253 Date d'inscription   Statut Contributeur Dernière intervention   52 > maelig33
 
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
Guez
 

Bonsoir, j'ai un petit soucis et j'aurai besoin d'une aide, 

Voilà j'ai créé un fichier où les admis et utilisateur doivent se connecter avec un login, (macro), il y a un bouton logout pour ce déconnecter, mais les personne ne se logout pas avant de fermer et enregistrer le fichier, du coup quand une autre personne ouvre le fichier, l'utilisateur précédent est toujours login. 

ma question, et comment le logout en même temps qui ferme et enregistre le fichier ? 

0
maelig33
 
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
maelig33
 
Peux tu rep a ce mes.
car je n'ai pas suivre les reponse spar mail sur le précedent.
merci
maelig33
0
Clara
 
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