Public Etat As Boolean
Sub OuvrirFichier()
Dim FileToOpen As String
FileToOpen = "C:\Excel\testOpen.xls"
Etat = IsFileOpen(FileToOpen)
If Etat = False Then Workbooks.Open FileToOpen
End Sub
Function IsFileOpen(Filename As String)
Dim filenum As Integer, Errnum As Integer
On Error Resume Next
filenum = FreeFile()
Open Filename For Input Lock Read As #filenum
Close filenum
Errnum = Err
On Error GoTo 0
Select Case Errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
End Select
End Function