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.