Sub Test()
Dim i As Integer
i = VerifClasseur("C:\Transfert\Test.xls")
Select Case i
Case 0: MsgBox "Classeur fermé."
Case 53: MsgBox "Fichier introuvable"
Case 70: MsgBox "Classeur déja ouvert."
Case Else: MsgBox "Erreur : " & i
End Select
End Sub
Private Function VerifClasseur(Fichier As String) As Integer
Dim x As Integer
On Error Resume Next
x = FreeFile()
Open Fichier For Input Lock Read As #x
Close x
VerifClasseur = Err.Number
On Error GoTo 0
End Function