Script VBS : Erreur 800A0005 : Argument ou appel de procédure incorrect

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:

---

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 :)

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.

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

Code:

---

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

Re

Citation:

---

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

---

Essais de repasser :D la commande

Code:

---

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.

J'ai toujours la même erreur :)

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

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