Discussion :

[Balian1412]

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

[SfJ5Rpw8]

voila un peu de code tu remplace le "false" par true si tu ve sauver tes classeurs ouverts..

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub fermeTout()
 Dim wb As Workbook
 For Each wb In Workbooks
  If Not wb Is ThisWorkbook Then
     wb.Close False
  End If
 Next
End Sub