Exécution BeforeClose sur tous mes fichiers

Bonjour,
Je recherche une solution pour pouvoir exécuter un code à la fermeture pour tous les fichiers excel que je vais ouvrir, quelque soit leur origine. Pour autant, je ne veux pas insérer de macro BeforeClose dans ces fichiers.....
Est-ce qu'il y a moyen via un modèle de document ou un un xla ?
Je butte depuis quelques heures sur ce sujet... J'ai tenté avec BeforeClose sur un xla, mais c'est lors de la fermeture de Excel, et non pas du fichier que le code s'exécute....

Ex : j'ouvre un fichier excel que m'envoi quelqu'un par mail. Quand avant fermeture de ce fichier, le code s'exécute. Pour autant, le fichier natif n'est pas modifié.

Bonjour,

tu devrais sans doute utiliser l'événement d'application WorkbookBeforeClose.
Exemple
Cet exemple montre comment inviter l’utilisateur à répondre par oui ou non à la question relative à la fermeture d’un classeur. Pour plus d’informations sur l’utilisation des procédures événementielles avec l’objet Application, voir Utilisation d’événements avec l’objet Application.
VBA

Code:

---

1 2 3 4

Private Sub App_WorkbookBeforeClose(ByVal Wb as Workbook, Cancel as Boolean) a = MsgBox("Do you really want to close the workbook?", vbYesNo) If a = vbNo Then Cancel = True End Sub

---

http://msdn.microsoft.com/fr-fr/libr...ice.15%29.aspx
eric

Ca ressemble effectivement à ce que je recherche, sauf que j'ai tenté et que ca ne marche pas....
Il faut mettre ce code dans un fichier .xla ? Dans ThisWorkBook ou dans un module ? Il faut déclarer des compléments ?

Bonjour,

essais ça,

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command1_Click()   Dim wk As Workbook   For Each wk In Workbooks wk.Close Next wk   Application.Quit End Sub

---

Bonjour,

Essais ça si tu préfères, pour

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub FermerTousClasseurs()   Dim Classeur As Workbook For Each Classeur In Workbooks If Classeur.Name <> ThisWorkbook.Name Then Classeur.Close SaveChanges:=True End If Next Classeur If Classeur.Name = ThisWorkbook.Name Then Classeur.Close SaveChanges:=True End If Next Classeur End Sub

---

Bonjour,

2 façons : dans ThisWorkbook ou dans un module de classe.
Voir ici : http://www.cpearson.com/excel/AppEvent.aspx

Had4789 : la question n'est pas comment fermer tous les classeurs.

eric

Eriic, je n'ai jamais dis que là question était comment faire tous les classeurs.

J'ai donné plusieurs possibilité de code qui affecte tous les classeurs.

A lui d'adapter en intégrant les formules qu'il veut appliquer.

Super, ca marche.

Pour clore ce ticket, voici la solution :

Créer dans ThisWorkbook d'un module xla les sub suivante :

Code:

---

1 2	Private WithEvents App As Application

---

et

Code:

---

1 2 3 4

Private Sub Workbook_Open() Set App = Application End Sub

---

puis fermer excel et relancer. A ce moment, dans la liste déroulante il y a une nouvelle option "App" qui apparait et permet d'accéder aux events de tous documents.

Il ne reste plus qu'à créer par exemple :

Code:

---

1 2 3 4

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) MsgBox ("fermeture de " & Wb.name) End Sub

---

Avec cela, je peux exécuter n'importe quel code dès qu'un classeur quelconque est fermé.

Merci encore.

Et merci à toi pour le résumé bien clair en français, ça resservira à d'autres :-)
eric