Procédure SENDKEYS sur vba pose problème

Résolu
cs_lazarre Messages postés 4 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 19 mai 2010 - 19 mai 2010 à 14:01
cs_lazarre Messages postés 4 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 19 mai 2010 - 19 mai 2010 à 15:52
Bonjour tout le monde je m'explique j'ai fait un programme me calculant des mots pou un jeu de scrabble, je dois ensuite les envoyer d'excel à un site internet, pour cela j'envoi via ce code

For s = nb_mots To 1 Step -1
Worksheets(4).Cells(s, 19) = mot_trouve(s, 1)
AppActivate ("test"), 1000

Sendkeys mot_trouve(s, 1),true
Sleep 1
DoEvents
Sendkeys "{ENTER}",true
Sleep 10

DoEvents
AppActivate ("dictionnaire")
DoEvents
Worksheets(4).Cells(s, 20) = mot_trouve(s, 2)
Next


ce code fonctionne dans le sen ou il envoye les infos au site internet cependant il lui arrive très souvent de ne pas envoyer la premiere ou les deux premieres lettres de chaque mots, comme si l'envoi était envoyé trop tot qu'en dites vous comment pourrais-je corriger ça

(Précision je suis sur office 2007)

Par avance merci à vous
lazarre fan d'egypte ancienne

2 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
19 mai 2010 à 15:43
Salut
Que signifient le "1000" derrière le AppActivate("test") ?
Le paramètre Wait de cette fonction attend un Booléen, False ou True
Avec 1000, tu dis True, mais cela ne représente pas une durée de temps.

Pour ton problème, il semble que tu envoies un texte que tu valides à chaque tour.
Cela implique un rafraichissement de la page internet en question.
Donc, ton Sleep de 10 mSec semble bien court !

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_lazarre Messages postés 4 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 19 mai 2010
19 mai 2010 à 15:52
je viens effectivement de m'apercevoir qu'il atend un booleen, je verifie et vous dis quoi, en tout cas je te remercie pour tes conseils, je teste et reviens ici ensuite
lazarre fan d'egypte ancienne
Rejoignez-nous