D
daniel
Guest
bonjour,
il y a un fichier en réseau auquel plusieurs personnes (accès quelques secondes pour compléter historique) doivent pouvoir écire dedans. S'il est déjà ouvert, il y a un message d'erreur,pour y parer j'ai écris ce bout de code :
Workbooks.Open FileName:= _
'N:\\Fiches.xls'
Application.ScreenUpdating = False
Windows('Fiches.xls').Activate
Do Until ActiveWorkbook.ReadOnly = False
ActiveWorkbook.Close
Workbooks.Open FileName:= _
'N:\\Fiches.xls'
Loop
Application.ScreenUpdating = True
mais il doit forcément y avoir mieux.
Merci pour ceux qui auraient la patience de m'éclairer.
il y a un fichier en réseau auquel plusieurs personnes (accès quelques secondes pour compléter historique) doivent pouvoir écire dedans. S'il est déjà ouvert, il y a un message d'erreur,pour y parer j'ai écris ce bout de code :
Workbooks.Open FileName:= _
'N:\\Fiches.xls'
Application.ScreenUpdating = False
Windows('Fiches.xls').Activate
Do Until ActiveWorkbook.ReadOnly = False
ActiveWorkbook.Close
Workbooks.Open FileName:= _
'N:\\Fiches.xls'
Loop
Application.ScreenUpdating = True
mais il doit forcément y avoir mieux.
Merci pour ceux qui auraient la patience de m'éclairer.