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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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