Comment savoir si un fichier Excel, Word ou Powerpoint et déjà utilisé sans ouvrir le fichier ?

Cette fonction devrait faire l'affaire.

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