Contrôle ActiveX et Word

Question

Bonjour,

Je d&#233;bute en asp j'ai un petit probl&#232;me, je m'en remets donc &#224; vos conseils. 

Voil&#224; j'aimerais exporter le contenu d'un recordset dans un fichier Word. Le probl&#232;me est que le serveur n'arrive pas &#224; d&#233;marrer l'application Word : l'erreur est alors la suivante "Un controle ActiveX ne peut pas cr&#233;er l'objet..."

Je voudrais savoir car ce n'est pas la premi&#232;re fois que je vois cette erreur, comment on v&#233;rifie qu'un contr&#244;le (nimporte lequel) est install&#233; sur le serveur ? 
C'est un serveur IIS, je peux donc si tout va bien lancer Word dessus puisqu'il y est install&#233; ?

Voici le moreceau de code qui est cens&#233; me cr&#233;er le fichier en question :
"'creation de l'objet qui permet de d&#233;marrer l'application Word
 Set MSWord = CreateObject("word.application") <= plante sur cette ligne
  ' Pour ne pas ouvrir Word sur le serveur
 MSWord.Application.Visible = false
 ' Cr&#233;ation du document Word
 Set Document = MSWord.Documents.Add()
 nbElt = rsFait.recordcount
 rsFait.MoveFirst
 If Not rsFait.EOF Then
  'Cr&#233;ation d'un paragraphe pour le titre
  'd&#233;claration paragraphe
  Set ParaTitre = Document.Paragraphs.Add
     set RangeParaTitre = ParaTitre.range
     RangeParaTitre.InsertBefore("FAITS MARQUANTS")       
     RangeParaTitre.Style = "Titre 1"
     RangeParaTitre.ParagraphFormat.Alignment = 1        
  For i = 1 to nbElt
   'paragraphe pour chaque Fait marquant
   Set newpar = Document.Paragraphs.Add
   set newrange = newpar.range
   'decalaration des attribut du paragraphe
      with newrange
          .Bold = False
          .Italic = False
          .Font.Name = "Verdana"
          .Font.size = "12"
      end with
      'remplissage du paragraphe
      newrange.insertBefore(rsFait("libelle_court"))
      newrange.insertBefore(vbTab & rsFait("fait_marquant"))
   rsFait.MoveNext
  Next
 End If
 ' enregistrement du document au format word
 Document.SaveAs server.mapPath("F:\stage\situ_v3\Word\exportFait.doc")
 ' fermeture du document
 Document.Close
 ' et de Word
 MSWord.Quit
 'liberation
 Set Document = Nothing
 Set MSWord = Nothing"

Y aurait il une erreur que je ne vois d&#233;cid&#233;ment pas ? ....

Merci de votre aide

Dilkas

dilkas · Answer

Voici en fait l'erreur exacte que me donne le serveur :
'Un composant ActiveX ne peut pas cr&#233;er un objet.: 'Word.application''
Je ne pense pas que ce soit compliqu&#233; mais je vois pas en fait d'o&#249; ca provient je connais pas grand chose en asp....
Merci d'avance

Dilkas

limpsilver · Answer

Je ne peux pas te dire la solution, juste que j'ai la m&#234;me erreur ...

Contrôle ActiveX et Word

2 réponses

Votre réponse

Discussions similaires