Macro vérifiant qu'un fichier est ouvert

Sub Test()
Dim wk As Workbook, bool As Boolean
For Each wk In Application.Workbooks
    If wk.Name = "Test.xls" Then bool = True
Next wk
If bool = True Then
    MsgBox "Le fichier Test.xls va maintenant etre ouvert"
    Workbooks.Open Filename:="C:\Documents and Settings\Moi\Bureau\Test.xls"
End If
'ici le reste de ton code
End Sub

Sub Test_v2()
Dim wk As Workbook, bool As Boolean
For Each wk In Application.Workbooks
    If wk.Name = "Test.xls" Then bool = True
Next wk
If bool = False Then
    MsgBox "Le fichier Test.xls va maintenant etre ouvert"
    Workbooks.Open Filename:="C:\Documents and Settings\Moi\Bureau\Test.xls"
End If
'ici le reste de ton code
End Sub

Sub Test_v2()
Dim wk As Workbook, bool As Boolean
Do While bool = False
    For Each wk In Application.Workbooks
        If wk.Name = "Barbatruc.xls" Then bool = True
    Next wk
    If bool = False Then
        MsgBox "Le fichier Test.xls va maintenant etre ouvert"
        'Workbooks.Open Filename:="C:\Documents and Settings\Moi\Bureau\Barbatruc.xls"
    End If
Loop
'ici le reste de ton code
End Sub

Dim i%, bool1 As Boolean
 
With Workbooks("nom_du_classeur_ou_tu_veux_que_soit_faite_la_verif.xls")
    For i = 1 To .Sheets.Count
        If .Sheets(i).Name = "Feuil3" Then bool1 = False
    Next i
    If bool1 = True Then MsgBox "ton message"
End With