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.
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.