possibilité de bloquer excel avec vbscript ?

Bonjour.

Je voudrais savoir si c'est possible de bloquer toute l'application Excel à partir d'un script vbs.

Voilà mon problème :
J'ai un script d'exécution assez long qui rentre des informations dans une page excel.
Avec l'option interactive = false, je peux bloquer l'écriture dans la page et la fermeture de la fenêtre.

Par contre, si j'ouvre une autre page excel en même temps que mon script s'exécute, les instructions sont rentrées dans la nouvelle page ouverte, ce qui constitue un gros problème.:cry:

Est-ce que je peux empêcher ça? Ou à défaut, est-ce que je peux bloquer l'application de manière à ce qu'on ne puisse pas ouvrir d'autre fichier avec Excel?

Merci

bonjour,

à ma connaissance, il n'existe pas dans le modèle objet d'excel de méthode ou de propriété qui permettraient d'interdire l'ouverture ou la création d'une nouvelle feuille.

La solution est peut-être dans la conception de ton script
peut-on avoir une idée de la façon dont la feuille est alimentée ?

Citation:

---

peut-on avoir une idée de la façon dont la feuille est alimentée ?

---

Oui c'est une fonction récusrive qui parcours des sous-dossiers.
Je référence dans mon script les DACL associés.

Voilà comment j'ouvre mon fichier excel :

Code:

---

1 2 3 4

Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Interactive=false Set objWorkbook = objExcel.Workbooks.Add

---

Apres je rentre mes données comme ceci

Code:

---

1 2	objExcel.Cells(intRow, intCol).Value = "chaine de caractère" 'intRow et intCol sont les compteurs respectivement des lignes et des collonnes

---

Mon script fonctionne très bien si on n'ouvre pas d'autre fenêtre excel.
Aurais-je oublié quelque chose?

Merci

Citation:

---

Aurais-je oublié quelque chose?

---

je pense
sans être un familier d'excel, je constate que tu utilises la propriété cells du document courant et non la propriété du document que tu as spécialement créé
je verrais plutôt quelque chose comme

Code:

---

objWorkBook.ActiveSheet.Cells(x,y).Value

---

merci c'est exactement ce que je recherchais.

problème résolu. Mes hommages omen999