Tester si un fichier excel est déjà ouvert

Bonjour,

J'ai créé un script vbs permettant d'ouvrir un fichier excel situé sur un réseau. Lorsque ce fichier excel est déjà ouvert, mon script ouvre ce fichier,en lecture seul, sans avoir le message d'avertissement me signalant qu'il est en cours d'utilisation avec la possibilité de l'ouvrir en lecture seul / notifier / ...

Est-il possible d'avoir cette notification ?


Merci,

a+

Citation:

---

Envoyé par Aide en ligne excel

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument

---

Avec IgnoreReadOnlyRecommended et Notify a true

Code:

---

1 2 3 4

Dim xlapp, oWk Set xlapp = CreateObject("Excel.Application") xlapp.visible = true Set oWk = xlapp.Workbooks.Open("D:\Tmp\MonClasseur.xls", , , , , , True, , , , True)

---

Merci pour cette réponse,

Malheureusement, ça ne marche pas, mon fichier excel s'ouvre une 2ème fois, en lecture seul (normal !) mais toujours sans message d'avertissement :calim2:

Voici mon code, si ça peut aider (NewFiche est le chemin du fichier excel ; NFeuille est le n° de la feuille devant être sélectionnée) :

Code:

---

1 2 3 4 5

Set AppExcel = WScript.CreateObject("Excel.Application") AppExcel.Visible = True Set oWk = AppExcel.Workbooks.Open (NewFich, , , , , , True, , , , True) oWk.WorkSheets(NFeuille).activate 'Active la feuille mentionné dans le tableau oWk.WorkSheets(NFeuille).Range("A2").Select

---

a+

Bonjour,

Il vas falloir reformuler la question, je pense ne pas l'avoir compris...

Quand tu dit le fichier excel est déjà ouvert, je pensai ouvert sur un autre PC du réseau.. c'est cela ?
Si c'est "est déjà ouvert sur le même PC" tu veux quoi ? te raccrocher à la session d'excel déjà lancée pour agir sur ce classeur ?


Puis pour le message "Fichier déjà ouvert", que veux tu en fait, doit-il s'afficher ?

Je vais essayer d'être plus clair,

J'ai un fichier excel, qui sert à pointer le personnel, situé sur le réseau de mon entreprise. Ce fichier était jusqu'à présent imprimé tous les matins et rempli par chaque responsable de service à la main puis amené au service du personnel.

Après discussion avec les personnes concernées, je me suis dit qu'il vallait peut-être mieux que ce fichier, étant sur le réseau, donc commun à tout le monde, soit rempli directement sur Pc (donc plus papier et plus d'oubli d'amener cette feuille tous les jours au service du personnel => moins de contrainte).

Pour ce faire, j'ai créé une feuille excel "matrice" et ce script doit créer le dossier de la semaine en cours, copier cette feuille matrice dans ce dossier et la renommer avec la date du jour. Ceci permet un classement par semaine avec une feuille par jour. De plus, ce script permet d'ouvrir la feuille du jour devant être rempli => pour l'utilisateur, il n'y a qu'un fichier à cliquer (le script vbs) sans se préocuper d'aller chercher sur le réseau la feuille de pointage du jour.

Le problème est que si la feuille du jour est en cours d'utilisation, les autres personnes, en cliquant sur le fichier .vbs ouvre quand même cette fiche, en lecture seule (ce qui est indiqué dans la barre en haut d'excel) mais sans le message d'alerte traditionnel. Il faut savoir que certaines personnes utilisant ce fichier ne sont pas des familiers de l'informatique et que ce genre de chose les dépassent => le risque est qu'elles remplissent cette feuille sans même s'apercevoir qu'elles sont en lecture seule et ferme en pensant que tout est bon. Comme excel affiche alors la possibilité d'enregistrer une copie de cette feuille en lecture seule, je vais finir par me retrouver avec plusieurs feuilles de pointage dans le même dossier, voir un peu partout sur le réseau.

J'ai essayé ta manip, mais malheureusement, cela ne règle pas le problème.
Mon but serait d'avertir simplement la personne que la feuille de pointage est en cours d'utilisation pour le moment, soit en utilisant la notification d'excel, soit éventuellement un message personnalisé (cela pourrait faire l'affaire, mais dans ce cas, comment tester si le fichier est déjà ouvert ?)

a+

utilise la propriété ReadOnly de ton classeur :

Code:

---

1 2 3

if oWk.ReadOnly then MsgBox "Le classeur est ouvert en lecture seule" end if

---

ça marche impec :ccool:

Je me suis servi de ton code pour améliorer le mien :
- du coup lorsque le fichier est déjà ouvert, j'affiche une MsgBox en mode modal system avec un message personnalisé
- lorsqu'utilisateur clique sur Ok de la boite de message, la feuille de pointage et excel se ferment (sans enregistrer bien sûr !)

Merci pour ton aide :mrgreen: