Excel Downloads Forums - Afficher un message - prob lecture seule pourécriture sur fichier réseau

23/12/2005, 16h53

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.

23/12/2005, 16h53	#1 (permalink)
daniel Guest Messages: n/a	prob lecture seule pourécriture sur fichier réseau 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.