VBA ouvrir fichier

Option Explicit

Dim objExcel As Excel.Application

'---------------------------------------------------------------------------------------
' Procédure : ClasseurEstOuvert
' Auteur    : 2pme, Guy Courville
' Date      : vendredi 11 février 2011
' Détails   : Le jeu consiste à ouvrir le classeur dans une instance invisible d'Excel
'             et à tester la propriété ReadOnly de ce classeur. C'est la valeur de cette
'             propriété qui est retournée par la fonction.
'
' Note 1    : Le paramètre strNomFichierComplet doit porter le chemin complet du classeur
'             comme son nom l'indique.
'
' Note 2    : Aucun gestionnaire d'erreur n'est actif.
'
'---------------------------------------------------------------------------------------
'
Function ClasseurEstOuvert(strNomFichierComplet As String) As Boolean

  Set objExcel = New Excel.Application
 
  With objExcel
 
    ' L'instance d'Excel qui porte le fichier ne doit pas être visible
    .Visible = False
   
    .Workbooks.Open (strNomFichierComplet)
   
    ' Si le classeur est déjà ouvert cette propriété sera à True
    ClasseurEstOuvert = .Workbooks(1).ReadOnly
 
    .Quit
 
  End With
 
  ' Ne pas oublier de supprimer la référence à Excel
  ' sinon une autre instance fantôme hantera votre système...
  Set objExcel = Nothing
 
End Function

Option Explicit 

Sub essai() 
Dim Ws As Workbook 
Dim test As Boolean 
test = False 
For Each Ws In Application.Workbooks 
    If Ws.Name = "toto" Then 
        Ws.Activate 
        test = True 
        Exit Sub 
    End If 
Next 
If test = False Then 
    Workbooks.Open "toto.xls" 
End If 
End Sub

Function IsFileOpen(filename As String)
Dim fileNum As Integer, ErrNumero As Integer

On Error Resume Next
fileNum = FreeFile()
Open filename For Input Lock Read As #filenum
Close fileNum
ErrNumero = Err
On Error GoTo 0
Select Case ErrNumero
    Case 0
	IsFileOpen = False
    Case 70
	IsFileOpen = True
End Select
End Function