[VBA-E] Verifier si un fichier est ouvert

Bonjour à tous,

j'ai un problème assez simple :oops: mais je n'arrive pas à trouver de solution. :evilred:
J'ai besoin de savoir si un fichier excel est ouvert comme condition dans un test en si, lors d'une sub auto_open() 8O
En gros j'aimerais coder un truc du genre:

Code:

---

1 2 3 4 5 6 7 8

Sub auto_open() If Workbooks("Classeur1.xls").IsOpen = True Then UserForm2.Show Else UserForm1.Show End If End sub

---

Auriez vous une idée ?? :roll:
Merci d'avance et bonne journée !

Une idée, oui ! Mais une question pour savoir si elle s'adapte : Si ton classeur n'est pas ouvert, l'ouvres-tu ?

non s'il n'est pas ouvert je n'ai pas besoin de l'ouvrir

Tiens, voici toujours un code qui fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ClasseurOuvertOuNon() Dim CL As Workbook, Chemin as string, NomFich as string Dim ok as boolean Chemin = "D:\xls\" NomFich = "Classeur1.xls" For Each CL In Application.Workbooks Ok = Ok Or CL.Name = NomFich Next If Not Ok Then msgbox "Le fichier n'est pas ouvert !" End Sub

---

Il y a plus simple avec une gestion d'erreur... mais bon, c'est pas apprécié par certains ;)

Merci beaucoup je fais essayer et je te tiens au courant.

C'est parfait comme solution. Surtout que vu la simplicité de mon code je n'ai pas besoin de gérer d'erreurs. Alors merci pour tout !!! :yaisse2:

Cependant j'attire l'attention de tous sur le fait qu'il serait peut être intéressant qu'une fonction du style "IsOpen" renvoyant un boolean existe... Ca serait quand même plus simple pour savoir si un fichier est ouvert ou non :roll:

Bonne journée à tous Et merci beaucoup ouskel'n'or !!!

Allez, pour le fun avec une gestion d'erreur (tu verras, cépasicompliké)

Code:

---

1 2 3 4 5 6 7

Sub ClasseurOuvertNon() Dim CL As Workbook On Error Resume Next Set CL = Workbooks("Classeur1.xls") If Err Then MsgBox "Fichier fermé" On Error GoTo 0 End Sub

---

:mouarf: