UN FICHIER EST-IL OUVERT ?

Public Function FileInUse(NomdeFichier as String) As Boolean
    Dim FF As Integer
    On Error GoTo FileOKError
    FileInUse = False
    FF = FreeFile
        Open NomdeFichier For Input Lock Read Write As #FF
        Close #FF
    Exit Function
FileOKError:
  FileInUse = True
End Function