VBA : Fermeture fichier sous condition

Dim Condition as Long
If wk0.Open = True Then
Condition = 1
Else
Condition = 0
End If

If Condition = 0 Then
wk0.Close
End If

Function FichierXlsOuvert(NomFichierXls As String) As Boolean
    On Error GoTo erreur
    Dim fichxls As Object
    FichierXlsOuvert = False
    Set fichxls = GetObject(, "Excel.application")
    If fichxls.Workbooks(NomFichierXls).Name = NomFichierXls Then
        FichierXlsOuvert = True
        MsgBox "le fichier est ouvert"
    End If
    Exit Function
erreur:
    MsgBox "le fichier n'est pas ouvert"
End Function
Sub test()
    FichierXlsOuvert ("monfichier.xls")
End Sub

Public ouv
Function FichierXlsOuvert(NomFichierXls As String) As Boolean
    On Error GoTo erreur
    Dim fichxls As Object
    FichierXlsOuvert = False
    Set fichxls = GetObject(, "Excel.application")
    If fichxls.Workbooks(NomFichierXls).Name = NomFichierXls Then
        FichierXlsOuvert = True
        ouv = 1
       ' MsgBox "le fichier est ouvert"
    End If
    Exit Function
erreur:
ouv = 0
    'MsgBox "le fichier n'est pas ouvert"
End Function
Sub test()
    FichierXlsOuvert ("monfichier.xls")
    'MsgBox ouv
    If ouv = 0 Then
    MsgBox "le fichier  n'est pas ouvert"
    'ActiveWorkbook.Close
    Else
    MsgBox "le fichier  est ouvert"
    End If
End Sub

Option Explicit
Sub test()
Dim wb As Workbook, b As Boolean
On Error Resume Next
Set wb = Workbooks("Classeur1.xls")
If Err <> 0 Then Set wb = Workbooks.Open("Classeur1.xls"): b = True
On Error GoTo 0
'ton traitement
If b Then wb.Close
End Sub

Sub Test()
  Dim Wbk As Workbook, Flag As Boolean
  On Error Resume Next
  Set Wbk = Workbooks("DOC2.xls")
  If Err <> 0 Then Set Wbk = Workbooks.Open("C:\DOC2.xls"): Flag = True
  On Error GoTo 0
  'ton traitement
  If Flag = True Then Wbk.Close
End Sub