Bonjour,
 
J'ai un script VB qui fait un appel a Word pour certains fichiers il fonctionne et pour d'autres j'ai l'erreur suivante:
Memoire insufficante.
code 800A13E9
La ligne de l'erreur correspond à l'open du script (en gras).
 
Je ne vois pas ce qui pose pb. Les fichiers ne sont pas forcement gros.
Le script est appelé par wsscript et l'argument est un fichier avec le chemin complet (ex c:\toto\titi\tutu\fichier.doc)
 
Si qq'un a une idee je lui serait super reconnaissant.
 
Merci.
 
Dim nomFichier, objWord, resultatword, args
 
'On verifie s il y a bien l argument de la fonction qui est le nom du fichier
Set args = Wscript.Arguments
If args.count=0 Then  
WScript.Echo "il manque les parametres"
WScript.quit 'on sort du vbs si pas d argument
else
nomFichier=args(0)
end if
 
'Definition du fichier resultat
resultatword="C:\Documents and Settings\user\Mes documents\resultatdoc.txt"
 
'Ouverture des applications
Set objWord = CreateObject("Word.Application" )
objWord.Visible = False                                    'on affiche pas word
objWord.DisplayAlerts = wdAlertsNone                'on affiche pas les alertes
 
'ouverture du fichier Word
Set objDoc = objWord.Documents.Open(nomFichier,False,True) 'ouverture sans conversion en lecture seule
 
Set objFSO = CreateObject("Scripting.FileSystemObject" )
 
'ouverture du fichier de resultat
Set objFiledoc = objFSO.CreateTextFile(resultatword)
 
'recherche des hyperlinks non vide et copie dans le fichier de resultat
Set colHyperlinks = objDoc.Hyperlinks
For Each objHyperlink in colHyperlinks
    if not (objHyperlink.Address="" ) then
       objFiledoc.WriteLine  chr(34) & objHyperlink.Address & Chr(34) & " ; " & objHyperlink.TextToDisplay  
    end if
Next

Je pense avoir trouve, il y avait 2 choses:
1) je ne supprimais pas les variables set xxx=Nothing
2) ce con de windows qd on lance un script il genere un fichier temp, au bout d'un certains nombre il peut plus en creer et ca plante !!!
(j'ai plus de 29000 fichiers a analyser, ca a planter vers les 6000).
 
Si je trouve d'autres choses ...