Appel VBScript externe

Bonjour,

J'ai réalisé un script pour automatiser une tache sur un logiciel de gestion (sage), et jusqu'à aujourd'hui tout se passe comme prévu.

Après j'ai créé un autre script pour faire une traçabilité de la 1ère tache. le script a pour but de faire une "Impr écran". Le script tout seul marche parfaitement en utilisant MsPaint il enregistre une image avec un nom donné et sur un chemin donné.

Le blocage: quand j'ai fusionné les deux scripts ça n'a pas marché et c'est devenu illisible... donc j'ai décidié de mettre 2 fichiers. (reajustement.vbs et imprecran.vbs)
quand je fais l'appel de "imprecran.vbs" depuis "reajustement.vbs" tout se passe bien au niveau de la tache et aussi au niveau de l'imprEcran mais quand ça arrive à l'enregistrement du fichier il change le répertoire d'enregistrement ce qui bloque la suite.


Partie du code "reajustement.vbs"

Code:

---

1 2 3 4 5 6 7 8 9 10

Wscript.sleep(6000) oCmd.SendKeys("~") Wscript.sleep(100000)   oCmd.run "imprecran.vbs" '<<== L'appel du vbs externe   Wscript.sleep(6000)   oCmd.SendKeys("~") oCmd.SendKeys("%{F4}")

---

Partie du code "imprecran.vbs"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

dim MyVar, objShell, dt, ladate, chemin dt=now chemin = "c:\reajustement\screenshots\" ladate = year(dt) &"-"& month(dt) &"-"& day(dt) &"-"& hour(dt) &"-"& minute(dt) Set objShell = Wscript.CreateObject("WScript.Shell")   WScript.Sleep 1500 AltPrintScreen "test" WScript.Sleep 1500 objShell.Run "mspaint" Wscript.Sleep 1500 objShell.SendKeys "^v" Wscript.Sleep 1500 objShell.SendKeys "%fr" WScript.Sleep 1000 objShell.SendKeys chemin & ladate WScript.Sleep 1000 objShell.SendKeys "~" WScript.Sleep 1000 objShell.SendKeys "%{F4}"

---

AltPrintScreen est une fonction d'impression d'écran trouvée sur le web très utile.


Merci pour votre aide

:salut:
Personnellement j'utilise un programme externe en ligne de commande Nircmdc.exe
et le code est le suivant :

Code:

---

1 2 3 4

Set Ws = CreateObject("WScript.Shell") NomImage = Day(Now) & "_" & Month(Now) & "_" & Year(Now) & "-" & Hour(Now) & "_" & Minute(Now) Command = "nircmdc.exe savescreenshot """ & NomImage &".jpg""" Resultat = Ws.Run(Command,0,True)

---

et si tu as besoin plus de personnalisation sur ce dernier, surtout n'hésites pas ;)

Salut hackoofr,

Merci pour votre aide.
y a-t-il un moyen de le faire sans passer par des programmes externes? des arguments à ajouter quand j'appelle mon fichier... parce que ce n'est qu'une très petite partie du projet, je ne peux pas passer à autre chose maintenant.

Salut
Dans la FAQ VBScript ce lien:
Comment utiliser les arguments en ligne de commande ?

Citation:

---

Envoyé par ZMehdi

AltPrintScreen est une fonction d'impression d'écran trouvée sur le web très utile.

---

Pouvez-vous nous poster son lien ? :roll:

Citation:

---

Envoyé par hackoofr

Pouvez-vous nous poster son lien ? :roll:

---

https://gist.github.com/kunst1080/5099908