Function FichierDejaOuvert(RepName As String, FileName) As Boolean
On Error Resume Next
Set toto = Workbooks.Open(RepName & "\ " & FileName)
If Err.Number = 0 Then 'ouverture fichier sans erreur'
FichierDejaOuvert = False 'donc fichier dispo'
If Workbooks(FileName).ReadOnly Then 'ouverture possible en lecture seule si déjà ouvert ailleurs'
FichierDejaOuvert = True 'finalement fichier pas dispo'
End If
toto.Close
Else
FichierDejaOuvert= True 'fichier déjà ouvert et pas dispo en lecture seule'
End If
End Function