[URGENT] Prob avec vbs et word

Question

Salut &#224; tous,

Je d&#233;bute en vbs et je souhaite pouvoir fusionner des donn&#233;es venant d'un fichier texte dans un modele word en .dot.

Voici mon code :

Dim source, p1, p2, p3, p4, p5
source = "c:	est.txt"           
 
Call Main()


Sub Main()


 CreateSource()
 Wordprinting()
 
End Sub


Sub CreateSource()
 
 Dim txt, titre
 titre = "col1#col2#col3#col4#col5"
 txt = p1 & "#" & p2 & "#" & p3 & "#" & p4 & "#" & p5
 Set FSO = CreateObject("Scripting.FileSystemObject")  
 
 Set Fic = FSO.CreateTextFile("c:	estvbs.txt", ForWriting, True)
 Fic.Writeline titre
 Fic.WriteLine txt                                                    
 Fic.close                                                            


End Sub


Sub WordPrinting()


 Set AppWord = CreateObject("Word.Application")                           
 Set DocWord = AppWord.Documents.Open("c:	est.dot")                      
                                                                                  
 DocWord.MailMerge.OpenDataSource source                                  
                                                                                  
 AppWord.Visible = True                                                   
 
End Sub


J'ai 2 problemes :

- le 1er je ne sais pas comment r&#233;cuperer mes arguments (p1, p2 etc...) depuis l'execution du script
- le 2 eme : j'ai tjs une erreur de compilation sur la ligne      Set AppWord = CreateObject("Word.Application")    avec le message d'erreur : ClassFactory ne peut pas fournir la classe demand&#233;e.

quand je lance mon script je le fais de la facon suivante : cscript test.vbs p1 p2 p3 p4 p5 

Pourriez vous m'aider, je ne sais pas o&#249; trouver l'info :(

Merci d'avance.

CTAC · Answer

Bonjour.


Voici une base. je ne peux rien de plus pour toi. je ne connais pas word et je ne dispose pas du dot.


Dim p, titre, txt, FSO, Fic, AppWord, DocWord
Set p = WScript.Arguments
titre = "col1#col2#col3#col4#col5"
txt = p(0) & "#" & p(1) & "#" & p(2) & "#" & p(3) & "#" & p(4)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fic = FSO.OpenTextFile("c:	estvbs.txt",2, True)
With Fic
.Writeline titre
.WriteLine txt
.Close
End With
Set AppWord = CreateObject("Word.Application")
Set DocWord = AppWord.Documents.Open("c:	estvbs.txt")
AppWord.Visible = True
Set DocWord = Nothing
Set AppWord = Nothing
Set Fic = Nothing
Set FSO = Nothing
Set p = Nothing


ctac


Pour de l'info :


http://www.bellamyjc.net

cs_talras · Answer

Merci beaucoup pour le passage d'arguments !!! Je vins de tester l'affaire ca marche:)

Il me reste &#224; traiter le probl&#232;me du lancement de Word et l&#224; ca semble &#234;tre  plus d&#233;licat. Si quelqu'un peut m'aider ?

Merci &#224; tous d'avance et merci &#224; toi CTAC :)

[URGENT] Prob avec vbs et word

2 réponses

Discussions similaires