Bonjour Jurassic,
Hélas trop compliqué et je ne peux installer ce prog. Mais merci
j'ai tenté ceci mais ça bloque sur erreur 91
Set coll_Lit = IEDoc.getElementsByTagName("NowButton")
et je tente avec une autre écriture du programme comme ceci
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim IEDoc As HTMLDocument
Dim coll_Lit As IHTMLElementCollection
Dim Lit As HTMLGenericElement
Set coll_Lit = IEDoc.getElementsByTagName("NowButton")
'on boucle sur toutes les balises <lit> de la collection
For Each Lit In coll_Lit
'Si la className de la balise <lit> est "wizBtn"
If Lit.className = "wizBtn" Then
'on clique
Lit.Click
'on quitte
Exit For
End If
Next |
Ca ne marche toujours pas. Pas de chance
Partager