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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 il m'affiche sous Word comme ceci=rand100.
Alors est ce qu'il y a une astuce pour contourner ce genre de problème ?