[Word]Problème d'ouverture d'un document RTF

Problème d'ouverture d'un document RTF [Word] - VB/VBA/VBS - Programmation

Marsh Posté le 09-09-2005 à 10:08:27    

Bonjour,  
 
j'ai une application qui pilote word mais mon problème c'est que plusieurs documents génèrent une erreur du type :
 
"word n'a pas pu appliquer l'événement" ou "mémoire insuffisante veuillez fermer le programme"  
 
hum...
 
j'ai donc appliquer des contrôles d'erreur afin de dire "tant qu'il y a une erreur, essaye de réouvrir le document"  
 
Avec ces controles, l'ouverture du document devient aléatoire car il se peut que le document s'ouvre après 50 tentatives voire même 800 tentatives ou encore la 1ere fois...
 
bref c'est un peu tiré par les cheveux!
 
Cerise sur le gâteau, lorsque je lance l'application sur mon portable, les taux d'erreurs d'ouverture des documents sont bcp moins fréquents!
 
j'ai le même office suite 2003 sur le portable et le pc
 
la configuration n'intervient pas (a mon avis) sur le traitement...  
je tiens à préciser que les documents à ouvrir sont au format RTF et sont stockés sur un serveur d'entreprise accessible 24/7
 
je ne comprends vraiment plus...
 
si quelqu'un a une idée...
 
d'avance merci

Reply

Marsh Posté le 09-09-2005 à 10:08:27   

Reply

Marsh Posté le 09-09-2005 à 10:57:29    

Bonjour,
 
Quel est le rapport avec la programmation ? => Win, Soft & Réseaux.
 
[:pingouino]


---------------
Now Playing: {SYNTAX ERROR AT LINE 1210}
Reply

Marsh Posté le 09-09-2005 à 12:36:06    

lol...
 
ben il y a du code pour le pilotage de word et je ne sais vraiment pas d'où est-ce que le problème provient...
 
voici la boucle qui réessaye tant qu'il y a une erreur :  
 

Code :
  1. While Not okWord And count < 1000
  2.         err.Clear
  3.         count = count + 1
  4.         Call KillProcessus("winword.exe" )
  5.         Set wappliword = New Word.Application
  6.         wappliword.Visible = wordVisible
  7.         'wappliword.Application.Visible = wordVisible
  8.         wappliword.DisplayAlerts = wdAlertsNone
  9.         For j = 0 To 50
  10.             Sleep (100)
  11.             DoEvents
  12.         Next j
  13.         On Error Resume Next
  14.         wappliword.Documents.Open nomrep
  15.         DoEvents
  16.         If err.Number = 0 Then
  17.             okWord = True
  18.         Else
  19.             okWord = False
  20.             frmWait.lblInfo.Caption = "Retrying  #" & count & "# to open DOC"
  21.         End If
  22.         DoEvents
  23.         Call frmWait.Timer1_Timer
  24.     Wend


 
voila maintenant le code je ne pense pas qu'il soit mauvais?  
personne n'a jamais piloté word depuis vb???

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed