Discussion :

[ptang]

Bonjour,

En écrivant un VBS pour piloter WORD 2k, j'ai un comportement aléatoire en fonction des postes de travail :
- lenteur d'exécution de 2-3 minutes sur certains postes et 5-10 secondes sur d'autres et pourtant, le code VBS (ci-dessous ) n'a rien d'extraordinaire.

Environnement : Windows XP PRO SP2/IE6 SP2/Office 2k SP3

Tests effectués :
- J'ai désinstallé tous les KB Microsoft ( sécurité et Office ) --> pb reste entier.
- Bizarrement, si j'installe WORD2003, ça résout le pb.
- Sur les postes posant pb, le porcess WINWORD ne travaille qu'à 1-2% occasionnellement.

Le code VBS :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim oTbl
 Dim oLigTbl 
 
  Set oWordApplication = CreateObject("Word.Application")
  Set oWordDocument = oWordApplication.Documents.Add
oWordDocument.Range.Style = "Normal"
oWordDocument.Range.Font.Size = 11
 
Set oTbl = oWordDocument.Tables.Add(oWordDocument.Range, 1, 5)
 
oWordDocument.Tables(1).Columns(1).PreferredWidthType = 3
oWordDocument.Tables(1).Columns(1).PreferredWidth = oWordApplication.CentimetersToPoints(2.86)
oWordDocument.Tables(1).Columns(2).PreferredWidthType = 3
oWordDocument.Tables(1).Columns(2).PreferredWidth = oWordApplication.CentimetersToPoints(0.32)
oWordDocument.Tables(1).Columns(3).PreferredWidthType = 3
oWordDocument.Tables(1).Columns(3).PreferredWidth = oWordApplication.CentimetersToPoints(6.35)
oWordDocument.Tables(1).Columns(4).PreferredWidthType = 3
oWordDocument.Tables(1).Columns(4).PreferredWidth = oWordApplication.CentimetersToPoints(6.24)
oWordDocument.Tables(1).Columns(5).PreferredWidthType = 3
oWordDocument.Tables(1).Columns(5).PreferredWidth = oWordApplication.CentimetersToPoints(2.86)
oWordDocument.Tables(1).Borders.InsideLineStyle = 1
oWordDocument.Tables(1).Borders.InsideLineWidth = 6
oWordDocument.Tables(1).Borders.OutsideLineStyle = 1
oWordDocument.Tables(1).Borders.OutsideLineWidth = 6		
 
for i = 1 to 40
	Set oLigTbl = oTbl.Rows.Add
	oLigTbl.Range.Font.Bold = False
	oLigTbl.Range.Font.Italic = False
	oLigTbl.HeadingFormat = False
	oLigTbl.Cells(1).Range.Text = i
	oLigTbl.Cells(3).Range.Text = i
	oLigTbl.Cells(4).Range.Text = i
next
 
	oWordDocument.SaveAs "d:\TestWord.doc", wdFormatText
	oWordApplication.Quit 0
	msgbox "Terminé

"


Je ne pense pas ça vient du code, puisque ceci est fonctionnel sur d'autres postes.

Si quelqu'un a une idée, je suis preneur.

Merci d'avance

[ced600]

Alors une chose peu arriver sur certain de tes postes : Tu n'as plus beaucoup de mémoire disponible au moment du lancement du script.
Moi perso au boulot j'ai un PC avec seulement 512 mo, après avoir lancé quelques applis, je n'ai plus de mémoire disponible et windows décharge une partie de la mémoire sur le disque dure (swap). L'accés disque étant beaucoup plus lent que l'accés en mémoire, je peux te dire que tout rame alors !!!!
Bref vérifie pour les postes où c lent que toute la mémoire ne soit pas déjà utilisée.

Bizarrement, si j'installe WORD2003, ça résout le pb.

Peut être un pb de version du soft ?