Bonjour a tous

j'utilise comme boucle pour ouvrir mes fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
If fich.name = name Then estouvert = True
Next
If estouvert = False Then Workbooks.Open FileName:=WhereDir & name, ReadOnly:=ReadOnly, Password:="XXX"
avec en variable le nom du fichier et si il doit etre readonly ou pas

comment modifier cet appel pour que si le fichier doit etre ouvert en ecriture
il verifie quil soit bien disponible sur le reseau ( que personne ne soit en ecriture dessus)
et que si il est deja ouvert ailleurs. il attendre 5s et relance le process??

MERCI par avance