Discussion :

[_-Rod79-_]

Bonjour,

J'ai un fichier qui n'est pas en mode "Partagé" mais qui est utilisé par plusieurs personnes.
Lorsque le fichier est utilisé par quelqu'un et que j'ouvre le fichier j'ai un message qui m'indique que le fichier est déjà en cours d'utilisation et il y a un bouton Lecture et un bouton Notifier.
Lorsque je clic sur Notifier, une fois que l'autre utilisateur ferme le fichier, j'obtiens un message m'indiquant que le fichier est dispo et me propose de le rouvrir en écriture.

J'aimerai pourvoir détecter en VBA cet événement : passage de lecture à écriture.

Comme Excel ne rouvre pas vraiment le fichier, l'utilisation de Workbook_Open ne me permet pas cela.

Avez-vous des idées pour cela?

[Menhir]

Comme Excel ne rouvre pas vraiment le fichier, l'utilisation de Workbook_Open ne me permet pas cela.

As-tu vérifié cette affirmation ?

[_-Rod79-_]

As-tu vérifié cette affirmation ?

Bonjour Menhir,

Oui j'ai bien vérifié mon affirmation avant de la mettre (désolé j'aurai dû le préciser) : j'ai mis un msgbox dans Workbook_Open, et au moment du passage de lecture à écriture même si Excel donne l'impression d'ouvrir à nouveau le fichier, ca ne passe pas dans Workbook_open

[Menhir]

As-tu essayé de passer par l'évènement WindowActivate en vérifiant la propriété ReadOnly ?
https://docs.microsoft.com/fr-FR/off...windowactivate
https://docs.microsoft.com/fr-FR/off...kbook.readonly

[eriiic]

Bonjour,

Je viens de tester. Effectivement aucun événement (Workbook ou Windows) ne se produit lors de l'ouverture réelle après mise à disposition.
Pas trop le temps de contrôler les événement Application, je suppose que c'est identique.
Workbook_Open s'est effectué, mais au moment de la tentative d'ouverture. Et ce dans la 1ère session ?!? (2 sessions sur le même PC)

Une idée ?
Un autre fichier, partagé celui-là, qui teste toutes les 10s la disponibilité du fichier et rafraichit ses données par un enregistrement.
A son ouverture le demandeur s'inscrit dans une pile FIFO sur une feuille.
Si le fichier devient disponible et qu'il est en tête de FIFO l'ouverture du vrai fichier se fait, son ident dans FIFO supprimé.
eric

[_-Rod79-_]

As-tu essayé de passer par l'évènement WindowActivate en vérifiant la propriété ReadOnly ?
https://docs.microsoft.com/fr-FR/off...windowactivate
https://docs.microsoft.com/fr-FR/off...kbook.readonly

J'ai vérifié et l'évenement WindowActivate ne se déclenche pas lorsque le fichier devient dispo en écriture.