Discussion :

[id301077]

Bonjour,

Tout est dans le titre mais je m'explique.

Lors de lancement de ma macro, j'ai plusieurs fichiers excel qui s'ouvrent. Je veux fermer tous ces fichiers excel ouverts, sans enregistrer sauf le fichier contenant ma macro.

Merci

[Daniel.C]

Bonjour,

Comment sont-ils ouverts. Est-ce que tu ne sais pas lesquels ont été ouverts par la macro ? Y a-t-il d'autres classeurs ouverts ?

[id301077]

ces fichiers sont ouverts par la macro.

Avec cette macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub ferme()
 
Dim Classeur As Workbook
For Each Classeur In Workbooks
    If Classeur.Name <> ThisWorkbook.Name Then
       Classeur.Close SaveChanges:=False
    End If
Next Classeur
 
End Sub

je n'arrive pas à les fermer. ca m indique juste si je veux enregistrer .

Merci

[Daniel.C]

Ca fonctionne ici.

[pastis.vi]

Au pire essaye de séparer :

Code :

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

1
2
Classeur.SaveChanges:=False
Classeur.Close

[carden752]

Bonjour,

Le problème est peut-être qu'il y a deux instances différentes d'Excel, donc il n'est pris en compte que les classeurs créés dans cette instance.
Comment sont créés les classeurs Excel à fermer?