Fermer un classeur via VBA que si il est ouvert

Bonjour

j'aimerai fermer certains classeur via VBA, le soucis est que lorsque j'utilise la procédure suivante :

Code:

---

Workbooks("NomClasseur").close

---

il faut que le fichier soit ouvert, et je ne sais pas comment faire pour verifier si mon classeur est ouvert

j'ai tester plusieurs chose, du genre

Code:

---

1 2	Workbooks("NomClasseur").visible =true Workbooks("NomClasseur").activate=true

---

mais cela ne fonctionne pas


merci pour votre aide

bonsoir

tu peux essayer

Code:

---

1 2 3 4 5 6 7 8

Dim Wb As Workbook   On Error Resume Next Set Wb = Workbooks("Nom classeur.xls") On Error GoTo 0   'True spécifie que les modifs sont sauvegardées If Not Wb Is Nothing Then Wb.Close True

---

michel

c'est niquel ca marche

merci beaucoup