[VBA-E] lenteur import word

Bonjour,

Je dois importer des donnees (~1000 donnees effectives) d'un document word d'~ 15500 paragraphes dans Excel.
L'auto refresh est OFF
Word est setVisible FALSE
Je boucle sur les paragraphes et teste sur le style

Code:

---

1 2 3 4 5 6 7

While i <> paragraphs.count If paragraphs(i).style = "sstMyTitle3" Then ' add ds excel End If i = i + 1 Wend

---

Le probleme est que ce bout de code est tres lent ( + de 60min ) et WINWORD.EXE vampirise les ressources du cpu.

Merci d'eclairer ma lanterne, je ne suis pas un pro vba.

peux-tu détailler ton code (mettre le code correspondant au 'add ds excel) ?

c'est là que tout se passe a priori :D

Ce code est en commentaire, le probleme de lenteur ne vient donc pas de là...
Le probleme se situe sur ce test :
If paragraphs(i).style = "sstMyTitle3"
Si je fais :

Code:

---

1 2 3 4 5 6

While i <> paragraphs.count If 3 = 4 Then End If i = i + 1 Wend

---

la marco se termine apres 5 secondes.

j'avoue que pour le coup je sèche...

-edit- donne à ton programme un peu de VitamineC ? :aie: je sors :arrow:

essai d'utiliser une variable dans laquelle tu met le résultat de paragraph.counts.. pour éviter de "recompter" à chaque tour...

Code:

---

1 2 3 4 5 6 7 8

Dim iNbParagraph as integer iNbParagraph = paragraphs.count While i <> iNbParagraph If 3 = 4 Then End If i = i + 1 Wend

---

Cette amélioration etait faite (désolé... un oubli lors de mon post) mais ca change pas grand chose sur le test du style.

J'ai testé avec, dans la boucle, uniquement : str = .Paragraphs(cpt_para).Range.Text et l'operation d'incrementation.
Ca prend un temps fou, le probleme est là...
Est ce un comportement normal en VBA pour 15500 paragraphes lus ?

bonjour

tu peux essayer en bouclant sur la collection de paragraphes, mais je n'y crois pas trop ...

Code:

---

1 2 3 4 5 6 7 8 9

Dim Cible As Paragraph   For Each Cible In ActiveDocument.Paragraphs   If .... Then   End If   Next Cible

---

par contre , est que le long temps de traitement ne peut pas venir de ce qu'il y a apres le If ...Then ?


bonne soiree
michel

Et pourtant... avec ta solution, je passe de 60min (meme 75min) à 5min
Merci bcq SilkyRoad et les autres !!!