Fermer tout les fichiers Excel

[jennifer]

Bonjour le forum!

J'ai crée une macro qui traite tout les fichiers Excel d'un répértoire ( prise de données etc...).
Je me suis fortement inspirée si ce n'est copiée d'une macro qui concatenais tout les fichiers Excel d'un répertoire dans un seul fichier trouvée sur le forum.

Maintenant je me retrouve avec mon fichier Excel ouvert qui contient les données et tout un tas d'autres fichiers Excel.(le fichier de trvail est Test.xls)

Comment fermer tout les fichiers Excel a l'exception de celui dont le nom est "Test.xls"?
Pour plus d'information si nécessaire je peux vous envoyer la macro....ou vous répondre si question il y a!

Merci!

Jennifer

 

[Pierrot93]

Re : Fermer tout les fichiers Excel

Bonsoir Jennifer

Ci dessous code qui ferme tous les classeurs ouverts, sans enregistrement.

Sub test()
Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name <> "Test.xls" Then wb.Close SaveChanges:=False
    Next wb
End Sub

Bonne soirée
@+

 

[jennifer]

Re : Fermer tout les fichiers Excel

Excelelnt !

Merci!