Tester si un classeur est ouvert

[Pierre]

Bonjour tous le monde.

Sommes nous capable de tester si un classeur est ouvert.

En fait, j'ouvre un classeur a l'aide d'une macro, mais j'aimerai l'ouvir que si le classeur n'est pas déjà ouvert.
Faire si le classeur est ouvert alors ne pas l'ouvrir mais juste se positionner dessus sinon l'ouvrir.

Merci d'avance

 

[Temjeh]

Bonjour le forum
Et longue vie à ce site

Pour classeur2:

Private Function EstDansCollection(Coln As Object, Item As String) As Boolean
Dim obj As Object
On Error Resume Next
Set obj = Coln(Item)
EstDansCollection = Not obj Is Nothing
End Function
Sub Macro1()
Dim Reponse
If EstDansCollection(Workbooks, 'Classeur2.xls') = True Then
MsgBox 'Le classeur 2 est déjà ouvert !'
Exit Sub
End If
If EstDansCollection(Workbooks, 'Classeur2.xls') = False Then
Reponse = MsgBox('Le classeur 2 n'est pas ouvert, voulez-vous l'ouvrir ?', vbInformation + vbYesNo)
If (Reponse = vbNo) Then
Exit Sub
Else
Workbooks.Open ('Classeur2.xls')
End If
End If
End Sub


A++

Temjeh