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*"

[lyokampe]

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.