Je bosse sur le même truc.
Pour le moment j'ai un script imp.vbs avec :
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

pour lancer l'impression, je fais en ligne de commande :
imp.vbs c:\test.rtf
(je bosse avec des fichier RTF qui sont plus facile à modifier en php).

En théorie, depuis php on devrait pouvoir le lancer via exec('imp.vbs c:\test.rtf). Mais quand apache tourne en mode service (dans mon cas avec wamp) ça ne marche pas. J'ai essayé plein de truc sur le paramètrage du service mais rien n'y fait. Le seul moyen pour le moment est de lancer apache en mode utilisateur. Pas top pour un serveur.

Et toi de ton coté, tu as trouvé qq chose ?

Bonjour a tous, je comprends que ce sujet date mais il m'a mis sur la voie pour ecrire mon code. Je précise que je débute en Vbs.

J'aimerais monter un code qui me permet de

1.ouvrir une boite de dialogue qui demandera "est ce que le mois est écoulé en entier". Celle ci proposera deux options: non et on sort de la procédure ou oui et on lance la procédure suivante:

1.1.j'ai un grapphique dans un fichier excel (grap1.feuille1.xls)

1.2.je veux aller chercher ce graphe par une commande

1.3.je veux choisir l'imprimante cute pdf qui imprimera le graphe

1.4.je veux aller enregister le pdf resultant de l'impression dans un repertoire bien spécifique (c:/repertoire-specifique)

Je n'ai pas fait le point 1

pour le point 1.1 j'ai plutot pris la feuille (feuille.xls) car donner l'adresse du graphe je sais pas faire.

le point 1.2 je crois que c'est bon

le point 1.3 me retourne une erreur(xlApp.ActivePrinter="CutePDF Writer") je ne sais pas pourquoi

le point 1.4, j'y reflechit (une proposition serait la bienvenue)

Mon code:

Dim xlapp, classeur, feuille, Doc

Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True

Set classeur = xlapp.Workbooks.add
Set feuille = xlapp.ActiveSheet

'point 1.1
Set Doc = xlApp.WorkBooks.open("C:\Documents and Settings\stagiaire\Bureau\feuille.xls")

Ici on définit l'imprimante qui sera utilisée.
xlApp.ActivePrinter="CutePDF Writer"

Doc.PrintOut
Doc.Close