[VBScript]Lancer l'impression

Bonjour,
j'ai besoin qu'un script vbs lance l'impression d'un document passé en paramètre.

pour le moment j'ai cela :

Code:

---

1 2 3 4 5 6

Dim WordApp, Doc Set WordApp = CreateObject("Word.Application") Set Doc = WordApp.documents.open("ici le chemin d'accès au document") Doc.PrintOut Doc.Close WordApp.Quit

---

quelqu'un pourrait-il m'aider s'il vous plait ?

pour les argument d'un script tu as :

Code:

---

Wscript.arguments.count

---

qui te donne le nombre d'argument de la fonction et par exemple pour accéder au 1° argument (rang = 0) :

Code:

---

Wscript.arguments.Item(0)

---

:wink:

ok, merci

Code:

---

1 2 3 4 5 6 7 8 9 10

private sub Impression(fichier as string)   Dim WordApp, Doc Set WordApp = CreateObject("Word.Application") Set Doc = WordApp.documents.open(fichier) Doc.PrintOut Doc.Close WordApp.Quit end sub

---

Je met où ce que tu m'as dis ?
Si je veux lancer ce script par la console windows, je n'ai qu'à m mettre dans el répertoire où il est stocké puis à écrire son nom, mais si je veux lui donner des paramètres, je fais comment ?
merci d'avance !!!

:f1:

plutot :

Code:

---

1 2 3 4 5 6 7 8

if Wscript.arguments.count >0 then Dim WordApp, Doc Set WordApp = CreateObject("Word.Application") Set Doc = WordApp.documents.open(Wscript.arguments.Item(0)) Doc.PrintOut 0 Doc.Close WordApp.Quit end if

---

et pour l'appel.. si ton VBS est TestImp.vbs :

Code:

---

testImp c:\tmp\toto.doc

---

:wink: