Discussion :

[manudad]

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é.

[eriiic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[manudad]

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 ?

[had4789]

Bonjour,

essais ça,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[had4789]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

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