Manipuler une page html à Classname Dynamique via VBa code
Hello Guys,
Really need your help. je suis débutant VBA et j'essaie de mettre sur pieds une appli qui permet d'importer les données numériques dans le tableau d'une page web. pour manipuler la page, il me suffit juste de prendre l'ID ou le Classname de l’élément à manipuler et jouer avec.
Mais un problème se pose, à chaque actualisation, la page web génère un ID ou un Classname différent du précédent, et c'est juste sur la partie que je veux manipuler.
mon code résumé
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Set objIe = New InternetExplorerMedium
objIe.Visible = False
objIe.navigate strUrl
objIe.Visible = True
While objIe.readyState <> READYSTATE_COMPLETE
DoEvents
Wend
Set objHtml = New HTMLDocument
Set objHtml = objIe.document
Set alone = objHtml.getElementsByClassName("ui-grid-cell ng-scope ui-grid-coluiGrid-03PC cell editable-alt")
If alone.Length <> 0 Then
For n = 0 To alone.Length - 1
alone(n).Focus
alone(n).Click
alone(n).innerText = Workbooks("steery research").Worksheets("sheet1").Range("C1").Offset(n + 1, 0).Value
Next n
End If |
Problème:
A la prochaine actualisation, le classname va garder le même préfixe mais va changer de suffixe "03PC" à un autre suffixe généré aléatoirement.
comment m'y prendre?
thanks d'avance pour votre aide
