Discussion :

[pitchalov]

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.

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

[omen999]

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 ?

[pitchalov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pitchalov]

merci c'est exactement ce que je recherchais.

problème résolu. Mes hommages omen999