F
flbt
Guest
Bonjour,
je partage des données de base dans un fichier unique.
Chacun utilise ce fichier en lecture seule.
Lorsque je veux modifier le fichier, cela ne peut se faire que par une personne à la fois.
J'ai essayer de gérer cette file d'attente comme suit :
Workbooks.Open Filename:=repD + fichier, ReadOnly:=False, Notify:=True
If ActiveWorkbook.ReadOnly Then
Application.Wait Now + TimeValue('00:00:01')
Compteur = Compteur + 1
If Compteur = 10 Then GoTo erreur
GoTo suite
End If
GoTo fin
erreur:
MsgBox ('Vos données n'ont pas été enregistrées recommencer plus tard')
fin:
Cependant, j'ai toujours le message comme quoi le fichier est dèjà ouvert...
Comment éviter ce message ?
Merci d'avance.
flbt
je partage des données de base dans un fichier unique.
Chacun utilise ce fichier en lecture seule.
Lorsque je veux modifier le fichier, cela ne peut se faire que par une personne à la fois.
J'ai essayer de gérer cette file d'attente comme suit :
Workbooks.Open Filename:=repD + fichier, ReadOnly:=False, Notify:=True
If ActiveWorkbook.ReadOnly Then
Application.Wait Now + TimeValue('00:00:01')
Compteur = Compteur + 1
If Compteur = 10 Then GoTo erreur
GoTo suite
End If
GoTo fin
erreur:
MsgBox ('Vos données n'ont pas été enregistrées recommencer plus tard')
fin:
Cependant, j'ai toujours le message comme quoi le fichier est dèjà ouvert...
Comment éviter ce message ?
Merci d'avance.
flbt
