Discussion :

[pio_killer]

Bonjour,

je débute avec vbs.

Je vous explique mon problème.
Je voudrais faire un script vbs qui m'ouvre tous les fichier d'un répertoire et qui me les imprime avec PDFCreator.
Ces fichiers sont des fichiers .CGM que j'ouvre avec le logiciel ProductView (ce sont des fichiers CAO)

J'ai trouvé une commande DOS qui me fait ça très bien:

Code :

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

cmd /c for /F "tokens=*" %%i IN ('dir /s /b "P:\*.cgm"') DO "C:\Program Files\PTC\Productview\pview.exe" -pt  "%%i" PDFCreator

Seulement, je veux faire un vbs car je voudrais renommer les fichier en même temps (j'ai déjà fais un vbs qui me renomme tous les fichiers d'un dossier)

est-ce quelqu'un peut m'aider ?

[pio_killer]

J'ai constaté qu'on pouvait lancer une commande DOS dans un vbs.

Voici ce que j'ai fait (j'ai enlevé la boucle FOR car je parcours déjà les fichier par vbs)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set objWshShell = WScript.CreateObject("WScript.Shell")
dim commande
dim fichier
 
'On définit le nom du fichier
fichier = "D:\vbs\test\fichier_test.cgm"
 
'On définit la commande
commande="cmd /c " & fichier & " ""C:\Program Files\PTC\Productview\pview.exe"" -pt  ""%%i"" PDFCreator"
 
'On lance la commande DOS
objWshShell.Run(commande)

Mais cela ne marche pas.

Le script m'ouvre bien le fichier dans productview mais l'impression ne se fait pas.
Avec la commande dans la BATCH, le fichier s'ouvre, s'imprime en masqué et se referme.

Je pense que j'ai du faire une boulette dans ma commande DOS.

Si quelqu'un peut m'aider

[l_autodidacte]

Salut;

Il y a ceci mais là tu dois mettre PDFCreator comme imprimante par défaut.

[pio_killer]

Merci pour ta réponse.

J'ai compris ce qui n'allait pas.
J'avais laissé la variable %%i qui venait de la boucle FOR

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set objWshShell = WScript.CreateObject("WScript.Shell")
dim commande
dim fichier
 
'On définit le nom du fichier
fichier = "D:\vbs\test\fichier_test.cgm"
 
'On définit la commande
commande="cmd /c ""C:\Program Files\PTC\Productview\pview.exe"" -pt  " & fichier & "  PDFCreator"
 
'On lance la commande DOS
objWshShell.Run(commande)

Je ne sais pas si cette commande marche avec d'autres application.
A tester.