Discussion :

[lyokampe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

<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 :

Sélectionner tout - Visualiser dans une fenêtre à part

<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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Sans garantie, essaies d'utiliser la collection
.getElementsByTagName

[lyokampe]

Sans garantie, essaies d'utiliser la collection
.getElementsByTagName

Salut Mercatog,
Et thanks pour ton aide .
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lyokampe]

Thanks pour ton aide Mercatog, mais 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??

[mercatog]

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