[AC-2010] Tester si un un fichier word distant est ouvert

[xenosender]

Bonjour

Je cherche à tester si un fichier word donné est ouvert (en fait, je veux attendre sa fermeture pour déclencher une série d'instructions telles que la suppression d'une table temporaire). Pour le moment, j'ai trouvé ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function IsFileLocked(sFile As String) As Boolean
'check is a file is opened by another process
    On Error Resume Next
 
     ' \\ Open the file
    Open sFile For Binary Access Read Write Lock Read Write As #1
     ' \\ Close the file
    Close #1
 
     ' \\ If error occurs the document if open!
    If Err.Number <> 0 Then
         '\\ Return true and clear error
        IsFileLocked = True
        Err.Clear
    End If
End Function

Ca fonctionne très bien quand le fichier est sur un disque local, mais pas quand le fichier est sur un ordinateur du réseau.
Plus précisément, la fonction renvoie bien true quand le fichier est ouvert, mais continue à renvoyer true une fois le fichier fermé.

Quelqu'un aurait-il une idée de comment adapter le code pour que cela fonctionne aussi pour un fichier distant ?

[Godzestla]

Salut,

ci-dessous un lien vers une discussion où j'avais besoin de tester si un fichier excel était ouvert.

cela devrait s'appliquer à tout type de fichier (voir la réponse de ucfoutu).