Re : VBA éviter message "fichier maintenant dispo en lecture ecriture"
Je pense avoir trouvé une soluce avec un mix de displayAlerts / resume next
Application.DisplayAlerts = False
On Error Resume Next
Workbooks.Open Filename:="\\chemin\fichier_a_ouvrir.xls", ReadOnly:=False, IgnoreReadOnlyRecommended:=True, notify:=False
If ActiveWorkbook.Name = "fichier_initial" Then GoTo pas_ouvert
If ActiveWorkbook.ReadOnly Then GoTo lectseule
' *** traitements divers sur le fichier ***
pas_ouvert:
MsgBox "Veuillez réessayer plus tard"
Application.DisplayAlerts = True
Exit Sub
lectseule:
MsgBox "Veuillez réessayer plus tard"
Workbooks("fichier_a_ouvrir.xls").Close SaveChanges:=False
Application.DisplayAlerts = True
Exit Sub
Merci pour l'aide fournie !