Bonjour le forum,
J'utilise la fonction (provenant du site microsoft) ci dessous afin de savoir si un fichier est ouvert ou pas, pour les classeurs non partagés, ce code fonctionne parfaitement mais ce n'est pas le cas pour les classeurs partagés.
Dans tous les cas, il me dit que le fichier n'est pas ouvert...
Avez vous une solution ?
Bonne soirée et merci d'avance pour votre aide
J'utilise la fonction (provenant du site microsoft) ci dessous afin de savoir si un fichier est ouvert ou pas, pour les classeurs non partagés, ce code fonctionne parfaitement mais ce n'est pas le cas pour les classeurs partagés.
Dans tous les cas, il me dit que le fichier n'est pas ouvert...
Avez vous une solution ?
Bonne soirée et merci d'avance pour votre aide
Code:
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
Case Else
Error errnum
End Select
End Function