Discussion :

[maxim26400]

Bonjour ,

J'ai un problème lors de l'exécution d'un script .vbs , J'ai le droit a l'erreur 800A0005 : Argument ou appel de procédure incorrect

Cette erreur concerne la ligne 10 du code qui suit :

Pour info je souhaite que mon script applique la combinaison de touche Ctrl + Shift + l et Ctrl + Shift + r et je pense que c'est a cette endroit que j'ai un soucis

Je suis débutant je viens juste de me mettre à ce langage et je n'ai pas trouver d'infos sur la syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files (x86)\Avaya\Avaya Aura Agent Desktop\CCAD.exe"""
WScript.Sleep 5000
WshShell.AppActivate ("C:\Program Files (x86)\Avaya\Avaya Aura Agent Desktop\CCAD.exe" )
WScript.Sleep 5000
WshShell.SendKeys "3268172"
WshShell.SendKeys "~"
WScript.Sleep 5000
WshShell.SendKeys "{^+(l)}"
WScript.Sleep 5000
WshShell.SendKeys "{^+(r)}"

Le script ne vas pas rester brouillon comme sa mais j'y travail petit a petit.
Merci d'avance

[ProgElecT]

Salut ,maxim26400 bienvenue sur DVP

Ton code semble correct.
La commande WshShell.AppActivate prend en paramètre le nom exacte de la fenêtre d'application (barre de titre), de plus il est sensible à la casse (MAJUSCULE/minuscule).
Un moyen de vérifier, dans un premier temps, est de ne pas utiliser les SendKeys , le programme lancer doit apparaitre au premier plan.
Si oui, peut être que tes tempos entre chaque SendKeys sont trop long, Sleep 200 devrait être largement suffisant.

[maxim26400]

Cette partie du code est correct, j'en suis sur tout fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files (x86)\Avaya\Avaya Aura Agent Desktop\CCAD.exe"""
WScript.Sleep 5000
WshShell.AppActivate ("C:\Program Files (x86)\Avaya\Avaya Aura Agent Desktop\CCAD.exe" )
WScript.Sleep 5000
WshShell.SendKeys "3268172"
WshShell.SendKeys "~"
WScript.Sleep 5000

L'erreur que j'ai est vraiment à la ligne 10 je pense : WshShell.SendKeys "{^+(l)}"

Je suis obligé de laisser 5000 en tempos pour laisser le temps à mon programme de s’exécuter

[ProgElecT]

Re

L'erreur que j'ai est vraiment à la ligne 10 je pense

Essais de repasser la commande

Code :

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

WshShell.AppActivate ("C:\Program Files (x86)\Avaya\Avaya Aura Agent Desktop\CCAD.exe" )

avant chaque SendKeys, vue la longueur d'attente d'execution par ton programme externe, la fenêtre n'est plus vue active par ton VBScript.

[maxim26400]

J'ai toujours la même erreur

[ProgElecT]

Re

J'ai un doute tout d'un coup, il y a tellement longtemps que je n'ai pas utilisé cette commande.
Essais plutôt:
WshShell.SendKeys "^+(l)" pour I

et

WshShell.SendKeys "^+(r)" pour r

[maxim26400]

Cela fonctionne !!! je te remercie ! c'est super ! sujet résolu +1 à toi