Vba pour manipuler AngularJ

Hello, je fais une appli qui remplie les données venant d'une page xls vers un site web qui utilise angularj.
les cases à remplir dans le web sont générées d'une matière automatique ce qui rends compliqués leurs utilisation ID ou Classname.

code source de la page web pour la 1ère case à remplir:

Code:

---

<div tabindex="-1" class="ui-grid-cell ng-scope ui-grid-coluiGrid-02O5 cell editable" id="1554797102611-5-uiGrid-02O5-cell" role="gridcell" aria-selected="false" ng-class="{ 'ui-grid-row-header-cell': col.isRowHeader }" ng-repeat="(colRenderIndex, col) in colContainer.renderedColumns track by col.uid" ui-grid-cell="" ui-grid-one-bind-id-grid="rowRenderIndex + '-' + col.uid + '-cell'"><div class="ui-grid-cell-contents ng-binding ng-scope">18</div></div>

---

la même case après une actualisation de la page web :

Code:

---

<div tabindex="-1" class="ui-grid-cell ng-scope ui-grid-coluiGrid-02XC cell editable" id="1554799061475-1-uiGrid-02XC-cell" role="gridcell" aria-selected="false" ng-class="{ 'ui-grid-row-header-cell': col.isRowHeader }" ng-repeat="(colRenderIndex, col) in colContainer.renderedColumns track by col.uid" ui-grid-cell="" ui-grid-one-bind-id-grid="rowRenderIndex + '-' + col.uid + '-cell'"><div class="ui-grid-cell-contents ng-binding ng-scope">18</div></div>

---

les ID et Class ont changés

mon code VBA

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set objHtml = New HTMLDocument Set objHtml = internetExplorer.document   Set modric = objHtml.getElementsByClassName("ui-grid-cell ng-scope ui-grid-coluiGrid-02XC cell editable") If modric.Length = 0 Then For q = 0 To modric.Length - 1 modric(q).Focus modric(q).Click modric(q).innerText = Workbooks("remplir").Worksheets("sheet1").Range("F1").Offset(n + 1, 0).Value Next q End If

---

Ca marche pas vu que la Classname change à chaque actualisation. comment je peux m'y prendre pour manipuler ce tableau?

merci d'avance de votre aide

c'est à ca que ressemble le tableau

Pièce jointe 465137

Sans garantie, essaies d'utiliser la collection
.getElementsByTagName

Citation:

---

Envoyé par mercatog

Sans garantie, essaies d'utiliser la collection
.getElementsByTagName

---

Salut Mercatog,
Et thanks pour ton aide :D.
J'ai bien essayé d'utiliser le .getElementsByTagName mais ça m'a sorti un truc bizarre. le code à carrément supprimer le tableau.

j'ai utilisé ce code:

Code:

---

1 2 3 4 5 6 7

Set messi2 = objHtml.getElementsByTagName("div") 'If messi2.Length <> 0 Then For i = 0 To messi2.Length - 1 If messi2(i).getAttribute("tabindex") <> "" Then messi2(i).innerText = 45 Next End if

---

Il faudrait peut être que j'utilise une autre procédure?

Essaies de voir d'abord ce que te donne et que tu pointe au bon endroit

Code:

---

1 2 3 4 5 6

Set Grid = objHtml.getElementsByTagName("div") For i = 0 To Grid.Length - 1 If Grid(i).getAttribute("tabindex") = "-1" Then Debug.Print i &" ====> "& Grid(i).innertext Next i End If

---

Thanks pour ton aide Mercatog, mais :oops: sans issue. ma page n'a mm pas réagi.
En plus le plus dur est qu'il y a 2 tableaux dans la page qui portent un div avec les mêmes attributs leur seule différence se situe au niveau des ID et Classname.
pour le className que je veux utiliser, à chaque actualisation, il n'y a que les 4 derniers chiffres qui changent, le préfixe reste le même.
Est-ce que je peux utiliser juste ce préfixe pour localiser ma case??

A tout hasard, Essaie getattributes("ClassName") like "ton debut*"

Citation:

---

Envoyé par mercatog

A tout hasard, Essaie getattributes("ClassName") like "ton debut*"

---

Hello Mercatog,
J'ai essayé mais le truc ne l'a pas reconnu. le seul blème c'est juste ce ID et ce classname qui changent. ça me tue. :(:( et je ne sais quoi faire.