Problème avec Wait

[jeanphi]

Bonjour

J'utilise une macro pour me connecter automatiquement à une application et pour remplir certaines zones de liste
A cette fin j'utilise "Sendkeys"
Cela marche mais aléatoirement
J'ai l'impression que cela est du au fait que le temps d'accès à mon appli est variable....
J'utilise pourtant des TIMER (voir ci-dessous)
Est ce bien l'origine du problème?
Si oui quel moyen ai je pour le contourner?
Merci 🙁

Sub LancerGRT()
Dim IE As Object


Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://grt.sf.intra.laposte.fr:1443/IBB/"

' CONNECTION A GRT
Application.Wait Now + TimeValue("00:00:02")
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys ("www")
SendKeys "{TAB}"
SendKeys ("ZZZ")
SendKeys "{TAB}"
SendKeys "{ENTER}"
Application.Wait Now + TimeValue("00:00:03")
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"

 

[RENAUDER]

Re : Problème avec Wait

Bonjour,

Essaies avec cette API, peut-être que ça fonctionnera mieux.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Le code :
Sleep 2000

 

[jeanphi]

Re : Problème avec Wait

bonjour eric

je n'arrive pas à utiliser cet API
comment dois je faire pour appeller cet API à partir de la macro?
merci 🙂

 

[ERIC S]

Re : Problème avec Wait

Bonjour

regarde en utilisant l'option attendre de sendkeys

expression.SendKeys(Touches, Attendre)
expression Variable qui représente un objet Application.
Paramètres
NomObligatoire/FacultatifType de donnéesDescriptionTouchesObligatoireVarianteTouche ou combinaison de touches que vous voulez envoyer à l'application, sous forme de texte.AttendreFacultatifVarianteAffectez à cet argument la valeur True pour que Microsoft Excel attende le traitement des touches avant de rendre le contrôle à la macro. Affectez-lui la valeur False (ou ne spécifiez pas cet agument) pour continuer l'exécution de la macro sans attendre le traitement des touches.

 

[RENAUDER]

Re : Problème avec Wait

Bonjour,

Tout en en haut dans ton module tu copies la ligne suivante :

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

bonjour eric

je n'arrive pas à utiliser cet API
comment dois je faire pour appeller cet API à partir de la macro?
merci 🙂

Ensuite dans ton code, tu mets

 CONNECTION A GRT
[COLOR=red][B]Sleep 2000[/B][/COLOR]
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys ("www")
SendKeys "{TAB}"

 

[jeanphi]

Re : Problème avec Wait

bonjour

merci je vais regarder eric 😉

 

[jeanphi]

Re : Problème avec Wait

merci eric je vais essayer!