Problème de Parenthèses avec Sendkeys ?

:salut:
Classique parmi les classiques, cet easter egg est généralement connu des plus geeks utilisateurs de Word. Il faut cependant commencer par le plus basique avant d’aller plus loin. Pour afficher plusieurs pages de « Servez à ce monsieur une bière et des kiwis » dans Word, il suffit de saisir =rand(100) ou =rand(200) puis cliquer sur entrer.
Mon Probléme à moi c'est que je veux le faire avec sendkeys mais malheureusement il ne marche pas avec ce code :

Code:

---

1 2 3 4 5 6

Set Ws = CreateObject("WScript.Shell") Ws.run "Winword.exe" wscript.sleep 3000 ws.AppActivate "Winword" ws.SendKeys "=rand(100)" ws.SendKeys "{enter}"

---

Les Parenthèses ne s'affichent pas :koi: il m'affiche sous Word comme ceci=rand100.
Alors est ce qu'il y a une astuce pour contourner ce genre de problème ?
:merci:

Bonjour :

Code:

---

ws.SendKeys "=rand{(}100{)}"

---

Citation:

---

Envoyé par Aide fonction Sendkeys

L'instruction SendKeys attribue une signification spéciale au signe plus (+), au signe insertion (^), au signe pourcentage (%), au tilde (~) et aux parenthèses ( ). Pour indiquer l'un de ces caractères, placez-le entre accolades ({}). Par exemple, pour indiquer le signe plus, tapez {+}.

---

:salut: bbil
Yep ! et voici le code qui marche :ccool:

Code:

---

1 2 3 4 5 6 7

Set Ws = CreateObject("WScript.Shell") eastercode = "=rand{(}100{)}" Ws.run "Winword.exe" wscript.sleep 3000 ws.AppActivate "Winword" ws.sendkeys eastercode ws.SendKeys "{enter}"

---

:merci: :lahola: