Sub test()
Dim Wb As Workbook
chemfichier = "C:\Users\TOTO\OneDrive\Documents\essai.xls"
Set Wb = GetObject(chemfichier)
If Wb.ReadOnly = True Then 'on test
If MsgBox("Le fichier est en Lecture seule !" & vbCr & _
"Faire nouvelle tentative dans 10 secondes", vbExclamation + vbYesNo, _
"EN ATTENTE") = vbNo Then Exit Sub
Wb.Close SaveChanges:=False 'on le ferme
Application.OnTime Now + TimeValue("00:00:10"), "attente"
Exit Sub
End If
Wb.Close
Workbooks.Open (chemfichier)
'le reste de la macro ici car le fichier est ouvert
End Sub
Sub attente()
test
End Sub