Discussion :

[dj-julio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[SfJ5Rpw8]

pour les argument d'un script tu as :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Wscript.arguments.Item(0)

[dj-julio]

ok, merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[dj-julio]

[SfJ5Rpw8]

plutot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

testImp c:\tmp\toto.doc