Procédure SENDKEYS sur vba pose problèmeRésolu

Question

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

cs_Jack · Accepted Answer

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 · Answer

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

Procédure SENDKEYS sur vba pose problème

2 réponses

Votre réponse