Discussion :

[VitamineC]

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 :

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

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.

[Commodore]

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

c'est là que tout se passe a priori

[VitamineC]

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 :

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

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.

[Commodore]

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

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

[SfJ5Rpw8]

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

Code :

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

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

[VitamineC]

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

[VitamineC]

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 ?