test pour savoir si un fichier partagé en réseau est ouvert par un autre utilisateur

jarod93

XLDnaute Nouveau
Bonjour,


voila mon code :
Function IsOpen() As Boolean

Dim Wb As Workbook



For Each Wb In Workbooks

If Wb.Name = "Base resultats.xls" Then ' Respectes Minuscules/Majuscules

IsOpen = True

MsgBox "La Base de résultats est en cours d'utilisation, Veuillez réessayer dans quelques secondes !!"

Exit For

End If

Next Wb

If Wb Is Nothing Then

IsOpen = False



MsgBox "Tu fais ce que t'as à faire "

End If

End Function




Ce code marche si le fichier en question est ouvert sur mon poste mais ne détecte pas si le fichier est ouvert ailleurs par un autre utilisateur.

Merci d'avance pour vos suggestions.
 

jarod93

XLDnaute Nouveau
Re : test pour savoir si un fichier partagé en réseau est ouvert par un autre utilisa

Bonjour Misange,

j'ai déjà essayé cette macro, mais ça ne marche pas pour le tester je fais ceci :

Private Sub CommandButton4_Click()

If (IsFileOpen("Base resultats.xls") = True) Then
MsgBox "yes"
End If
If (IsFileOpen("Base resultats.xls") = False) Then
MsgBox "No"
End If
End Sub

même si le fichier est ouvert sur mon poste il ne le détecte pas

Merci par avance pour vos réponses
 

Discussions similaires