Discussion :

[peaceandloveman01]

Bonjour à tous,

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

Code :

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

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 ??
Merci d'avance et bonne journée !

[ouskel'n'or]

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

[peaceandloveman01]

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

[ouskel'n'or]

Tiens, voici toujours un code qui fonctionne

Code :

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

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

[peaceandloveman01]

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

[peaceandloveman01]

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 !!!

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

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

[ouskel'n'or]

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

Code :

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

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