Bonjour Marc,
J'espère que je ne te casse pas les pieds. Ce qui m'amène c'est que je n'arrive pas à synchroniser les réponses du site paris-turf avec mon code. J'ai soit une erreur 424, soit une erreur 91, soit une erreur 438. Ces erreurs se produisent aléatoirement un peu n'importe où et pas forcément de manière récurrente.
Ce que tu m'as appris semble ne pas fonctionner. Voici mon code
Code :
- Sub titi()
- Dim IEdoc As Object
- Dim DOCelement As Object
- Dim Tablo
- Set ie = CreateObject("InternetExplorer.Application" )
- ie.Navigate ("http://www.paris-turf.com/menu/courses/2016-01-21" )
- ie.Visible = True
- Reunion = 1
- Course = 1
- While ie.Busy Or ie.ReadyState < 4: DoEvents: Wend
- Set IEdoc = ie.document
- Set DOCelement = IEdoc.GetElementsByTagName("H3" )(Reunion - 1).GetElementsByTagName("A" )(0)
- Ztra = DOCelement.innerText
- Ztra = DOCelement.href
- L = Len(Ztra)
- For X = L To L - 10 Step -1
- If Mid(Ztra, X, 1) = "-" Then
- Exit For
- End If
- Next X
- While Not IsObject(IEdoc.GetElementsByTagName("H3" )(Reunion - 1)): DoEvents: Wend
- IEdoc.GetElementsByTagName("H3" )(Reunion - 1).GetElementsByTagName("A" )(0).Click
- Iden = "reunion-" & Mid(Ztra, X + 1, Len(Ztra) - X)
- 'Application.Wait Now + TimeValue("00:00:04" )
- If Course = 1 Then
- Course = 0
- Else:
- Course = Course - 1
- Course = Course * 6
- End If
- While Not IsObject(IEdoc.all(Iden)): DoEvents: Wend
- Set DOCelement = IEdoc.GetElementById(Iden).GetElementsByTagName("A" )(Course)
- IEdoc.all(Iden).GetElementsByTagName("A" )(Course).Click
- 'Application.Wait Now + TimeValue("00:00:06" )
- While Not IsObject(IEdoc.all("race-tables-panel" )): DoEvents: Wend
- IEdoc.all("race-tables-panel" ).GetElementsByTagName("A" )(2).Click
|
Les erreurs se produisent à la ligne 15, 25, 36 ou 41 selon l'humeur du moment et revêtent l'une des 3 valeurs d'erreur.
Plus grave, lorsque je programme l'attente de mon "iden" à la ligne 35, il ne trouve même pas la TABLE !!! (mis en évidence par l'observation des variables locales ).
Par contre, la temporisation par un WAIT fonctionne... elle reste cependant aléatoire car cela dépend de la charge du site.
En quelques mots, après 3 jours de recherche, je donne ma langue au chat.
J'ai survolé "AutoIt", mais cela remet tout le travail que j'ai déjà réalisé en cause !!!
Merci de tes conseils
A te lire