Lenteurs : Remplissage Signets Word 2000 / XP

[Le_Phasme]

Bonjour à tous,

Ce code qui fonctionne nickel sous Win2000 / word2000 est victime de lenteur sous XPSP2/word2000

Code :

1
2
3
4
5
6
7
8
9
 
Sub Remplir_doc()
With wdapp.ActiveDocument
For i = 2 To UBound(TabVal)
    .Bookmarks(TabFld(i)).Range.Text = TabVal(i)
    j = j + 1
Next
End With
End Sub

J'ai essayé en mettant :

Code :

For i=2 to 10

Et en mettant :

Code :

.Bookmarks(2).Range.Text = "2"

J'ai le meme soucis. Donc la lenteur viient de l'interaction entre Access et Word. (access rempli word).

Quasiment 0.35 seconde à chaque remplissage de signet, c'est enorme. (J'ai 28 signets à remplir...) * 6 documents...

Voyez vous ce qui peut provoquer cette lenteur enorme ?

[Banzai31]

Sur la même machine ?

[Heureux-oli]

Tu peux toujours essayer de masquer l'exécution du code,

Code :

1
2
3
4
5
wApp.ScreenUpdating = False
 
 
Application.ScreenUpdating = True
Application.ScreenRefresh

Il y a un tas de facteurs succeptibles de modifier la vitesse d'exécution.

Combien de mémoire vive as-tu ?
Quel processeur ?
Quel est le type de HDD ?
...

[Le_Phasme]

Donc j'ai essayé sur 3 machines (même config)
AMD 64 dual core
4000 +
2 go Ram
POur le DD en fait c'est sur le reseau d'entreprise les documents.
Le disque c'est un 80go.

[Heureux-oli]

Si la DB est sur le réseau, il faut voir si il n'y as pas un étranglement de la bande passante sur le réseau ou le serveur.

Essayer de remplir les signet directement au départ des recordsets.

[Le_Phasme]

Rien a voir par rapport aux recordset. (puisque je mets "2" dans les tests au lieu de mon tableau de valeur).
Ensuite, concernant la bande passante, on est 25 PC en reseau, ca marche pour tout le monde sauf ceux sous XP donc rien à voir à mon avis avec le reseau (disons bande passante).

[Heureux-oli]

C'est avec un serveur ou en Wordkgroup ?

[Le_Phasme]

UN serveur avec controleur de domaine win 2003 server.

[Heureux-oli]

On a fait le tour, j'ai une config similaire et un AMD 1500+, Win XP SP2, Word 2003. Mes signets se remplissent nettement plus vite.
Désolé, j'ai pas de solution.

[Le_Phasme]

J'ai une piste avec la variable wdapp que j'ai declaré en publique.