fichier en execution sur le poste de l'utilisateur

Bon j'ai trouvé une solution.

J'ai trouvé une fonction sur ce site qui me permet de récupéré le Handle d'un fichier en fonction de son nom. Cette fonction cherche parmis les noms des fenetres actives. Elle renvoi 0 si le nom est introuvable.

**********
Public Function HwndFenetre(ByVal Texte As String) As Long
   
    ' Recherche le handle de la première fenêtre contenant
    '   le Texte dans le titre
   
    Dim Titre As String, hWnd As Long, r As Long
   
    ' Handle du bureau
    hWnd = GetDesktopWindow()
    ' Cherche la première fenêtre lui appartenant
    hWnd = GetWindow(hWnd, GW_CHILD)
    Do While hWnd <> 0
        ' Récupère le nom de la fenêtre
        Titre = String(255, " ")
        r = GetWindowText(hWnd, Titre, 255)
        Titre = Left(Titre, r)
        ' Terminé si le nom correspond
        If UCase(Titre) Like UCase("*" & Texte & "*") Then
            HwndFenetre = hWnd
            Exit Do
        End If
        ' Sinon, cherche la fenêtre suivante
        hWnd = GetWindow(hWnd, GW_HWNDNEXT)
        DoEvents
    Loop
   
End Function
**************

En combinant les fonctions IsFileOpen et HwndFenetre, on peut determiner si oui ou non un fichier a été lancé par un autre utilisateur.