Bonjour,

En faisant des recherches sur le site, je suis tombé sur une macro qui correspond presque à ce que je recherche. Je ne sais pas si je peux l'utiliser pour ce que je souhaite faire. Je voudrais pouvoir fermer l'ensemble des classeurs ouverts à l'exception de celui dans lequel je me trouve.

Auriez-vous une solution pour moi ???

La macro :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Dim Fichier As String
Dim Wb As Workbook
 
Fichier = Dir("E:\Bertrand\*.xls")
 
Do While Fichier <> ""
 
'----- vérifie si le classeur est ouvert ------
On Error Resume Next
Set Wb = Workbooks(Fichier)
If Not Wb Is Nothing Then MsgBox "Fichier " & _
Wb.Name & " déja ouvert"
On Error GoTo 0
'-----------------------------------------------
 
Set Wb = Nothing
Fichier = Dir
Loop
Merci beaucoup d'avance
Bertrand