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