Problème import tableau depuis web

Version imprimable

Bonsoir, j'ai beaucoup avancer grâce au magnifique tuto d'internet et je parviens presque à faire ce que je souhaite avec le vba. Seul un problème subsiste c'est que lorsque j'importe un tableau de données dans excel et bien au bout d'un moment tout fout le camp. Je m'explique :
La macro ouvre une page web / se connecte ouvre une autre page de résultat de donnée / j'importe ces données. Des fois c'est nickel dès fois les résultats se décale. je relance la macro ça se décale encore plus.
On dirait qu'il y a un problème dans mes variables. Au bout d'un moment elles deviennent folles.
Pour la m^me Macro lancées 2 fois d esuite je n'ai pas le m^me résultat qui apparait. OUF

Pouvez vous me secourir, je dors sur ce trucs depuis des jours. Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
'Option Explicit
Sub Educaplay()
 
 Dim MyHTML_Element As IHTMLElement
 Dim MyHTML_Element2 As IHTMLElement
 Dim MyURL As String
 'Dim ele As Object
 Dim htmlselectelElement As HTMLGenericElement
 'Dim Nb As Integer
 Dim MyBrowser As InternetExplorer
 Dim HTMLDoc As HTMLDocument
 Dim ie As SHDocVw.InternetExplorer
 
Dim Nombre_colone As Integer
Dim Nombre_Ligne As Integer
Dim Nombre_R As Integer 'Nb de résultats
Dim k As Integer 'chiffre pour remplir le tableau
Dim Valeur As Date
Dim i As Integer
Dim j As Integer
 
 
 
 
 
 On Error GoTo Err_Clear
 MyURL = "https://fr.educaplay.com/login/"
 Set MyBrowser = New InternetExplorer
 MyBrowser.Silent = True
 MyBrowser.Navigate MyURL
 MyBrowser.Visible = True
 Do
 Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE
 Set HTMLDoc = MyBrowser.Document
 HTMLDoc.all.user.Value = "*************" 'Enter your email id here
 HTMLDoc.all.pass.Value = "********" 'Enter your password here
 For Each MyHTML_Element In HTMLDoc.getElementsByTagName("button")
 If MyHTML_ID.Type = "loginNormal" Then MyHTML_Element.Click: Exit For
 Next
Err_Clear:
 If Err <> 0 Then
 Err.Clear
 Resume Next
 End If
 
 'start a new browser instance
    Set objIE = New InternetExplorer
    'make browser visible
    objIE.Visible = True
 
 objIE.Navigate "https://fr.educaplay.com/fr/miEducaplay.php?action=resultadosGrupo"
Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop
 
 
 
'Sélection de la ligne correspondant à 1TCB 2017-2018
Set IEDoc = objIE.Document
'oDoc.getElementsByName("idGrupoBusqueda")(0).Value = "149524" '1TCB 2017-2018
IEDoc.parentWindow.execScript "POST", "javascript"
IEDoc.getElementsByName("idGrupoBusqueda")(0).Value = "292868" 'TCB 2018 -2021 ==============CHANGEMENT CODE GROUPE EDUCAPLAY
IEDoc.forms(1).submit
Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop
 
 
 
 
 
'Worksheets(Feuil1).Range("A:ZZ").ClearContents
 
 
 
'Valeur = 0
' Valeur = Timer 'temporisation pour le rafraichissement de la page
'    Do While Timer < Valeur + 7
'    DoEvents
'    Loop
'
 
 
Set HTML = objIE.Document '========!!!!!!!!!!!LIGNE OBLIGATOIRE POUR LIRE TABLEAU!!!!!!!!!!=============
 
 
 
 
 
 
 
 
'======================Boucle pour mise à jour page======================
 
' j = 2
' i = 2
' k = 0
 
        'recherche le nombre de ligne elève
        Nombre_Ligne = HTML.getElementsByTagName("thead")(1).Children.Length
'boucle pour ecrire nom des élèves dans ligne colonne 1 tableau
For j = 2 To (Nombre_Ligne + 2)
 
        'emplacement ecriture nom eleve
        Worksheets("FEuil1").Cells(j, 1) = HTML.getElementsByTagName("thead")(1).Children(j - 2).innerText
        'MsgBox Nombre_Ligne
Next j
 
        'recherche le nombre de colonne machine
        Nombre_colone = HTML.getElementsByTagName("tr")(0).Children.Length
        'MsgBox Nombre_colone
        'boucle pour ecrire nom des machines dans colonne tableau
For i = 2 To (Nombre_colone + 2)
 
        'emplacement ecriture nom machine
        'Worksheets("FEuil1").Cells(1, i) = HTML.getElementsByTagName("th")(i - 2).innerText
        Worksheets("FEuil1").Cells(1, i) = HTML.getElementsByTagName("tr")(0).Children(i - 2).innerText
Next i
 
 
 
For j = 2 To Nombre_Ligne + 1
      For i = 2 To (Nombre_colone + 1)
        'Nombre_R = HTML.getElementsByTagName("td").Length
 'To Nombre_R
        'remplissage avec résultat
        Worksheets("FEuil1").Cells(j, i) = HTML.getElementsByTagName("td")(k).innerText
k = k + 1
      Next i
Next j
 
'Set MyObject = Nothing
 
 
objIE.Close
'Set objIE = Nothing
'Set objIE.Document = Nothing
End Sub

PS :je suis débutant

19/12/2018, 06h30
ARTURO83

Bonjour,

Pour comprendre ce qui se passe, il faut faire du dépannage en pas à pas.
Mettre un point d'arrêt sur une ligne (faire ALT + F9 sur la ligne) et dérouler le programme avec F8 ou fn+F8 et observer ce qui se passe.

Pour commencer mettez un point d'arrêt sur la ligne:

Code:

For j = 2 To Nombre_Ligne + 1

, lancer la macro et au point d'arrêt, poursuivez avec F8 ou fn + F8

Rappel:
F8 ou fn + F8: Exécution du programme en pas à pas
F5 ou fn + F5: Exécution du programme dans son intégralité ou bien s'arrête au prochain point d'arrêt rencontré

Cdlt
19/12/2018, 09h35
dadou42380

J'ai essayé mais en vain

Bon j'ai essayé main en vain, je ne comprend pas du tout ce qui se passe.
je relance 2 à trois fois la macro et cela continue de remplir mon tableau en corrigeant certaines erreur et en supprimant d'autre.
Et au bout de 4 à 5 fois quand on croit que le tableau est rempli correctement cela re-deraille.
Je désespère
19/12/2018, 15h57
zenpbb
Bonjour,

Si tu veux garder un tant soit peu la maîtrise de ton code, il faut éviter d'inhiber les erreurs !
Commence donc par virer :

Code:

On Error GoTo Err_Clear

et
Code:

1 2 3 4 5 Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If
Car il est fort probable que ce soit l'origine du comportement bizarre lors de l'exécution de ta macro.
Du coup, tu vas sûrement avoir des erreurs, que tu devras corriger au lieu de les ignorer !

Par exemple, je te trouve bien optimiste en espérant à tous les coups récupérer directement le texte que tu souhaites avec une instruction comme celle-ci :

Code:

Worksheets("FEuil1").Cells(j, 1) = HTML.getElementsByTagName("thead")(1).Children(j - 2).innerText

Parce que là, pour chaque ligne de ton tableau, tu récupères l'ensemble des tableaux de la page

Il vaut mieux procéder par étapes : d'abord récupérer la collection de thead, puis, si la collection récupérée n'est pas vide, identifier l'élément que tu veux (est-ce toujours celui qui a pour index 1 ?), et ensuite, mais seulement lorsque tu es sûr d'avoir identifié le tableau que tu veux aspirer, tu peux boucler pour récupérer les lignes que tu souhaites.

Et si tu fais comme ça, il n'y a pas de raison pour que tu aies besoin d'utiliser un On Error.
19/12/2018, 17h28
dadou42380

Suite explication

RE-Bonjour,
En faite j'obtiens avec le code présenté exactement le tableau recherché à un détail près c'est que les score se décale de manière aléatoire dans le tableau.
A partir de la 6e ligne des résultats c'est n'importe quoi. Aucune fiabilité
JE pense que c'est soit pb de page web qui ne se rafraichit pas assez vite. J'ai essayé de mettre des tempo en vain
Ou un probleme de variable à reseter.
Mais comme j'ai codé comme un "porcinet" impossible d'enlever les on error sinon je passe m^me pas la page de l'authentification.
J'ai essayer de repartir sur des bases propre sur une connection login mais j'ai des message d'erreur 91 "pas compris"!!!!

JE sais que le mieux serait de reprendre depuis le début
20/12/2018, 11h24
zenpbb
Bizarre ton choix de fermer les yeux dès la première erreur. Voici une piste pour la corriger :
Dans ta boucle
Code:

1 2 3 For Each MyHTML_Element In HTMLDoc.getElementsByTagName("button") If MyHTML_ID.Type = "loginNormal" Then MyHTML_Element.Click: Exit For Next
d'où sort MyHTML_ID ? on peut imaginer que MyHTML_Element conviendrait mieux.
De plus, en y regardant d'un peu plus près, loginNormal semble plutôt correspondre à une propriété id d'un formulaire, donc tu devrais pouvoir remplacer toute cette boucle For Each ... Next par :

Code:

HTMLDoc.getElementById("loginNormal").Submit

Je n'ai pas testé, mais ça devrait t'aider dans un premier temps à te passer de ton On Error....

Au pire, si tu ne parviens pas à corriger l'erreur que tu veux inhiber lors de ton étape de connexion, tu places l'instruction On Error Goto 0 dans ton code dès que tu as passé cette étape qui plante.

Entre temps, continue à te plonger dans le tuto dont tu parles, ça ne peut que t'aider à progresser.

PS : vu que malgré l'erreur de connexion tu accèdes au tableau, c'est que soit tu es déjà connecté, soit le site est paramétré pour se souvenir de toi et te connecter automatiquement, soit il n'y a pas besoin de se connecter ! Et que donc tu n'as pas forcément besoin de gérer la connexion au site dans ton code...

Suggestion réalisé et fonctionne en partie

Merci Zenpbb pour ton aide j'ai fait ce que tu m'as dit et cela a supprimé les erreurs de départ.
Mais j'ai toujours un problème sur ma boucle de récupération des notes qui s'arrête en cours d’exécution avec une erreur 424 objet requis. Je n'obtiens simplement les 5 premières lignes de résultat. Ça bloque à

Code:

Worksheets("FEuil1").Cells(m, l) = HTML.getElementsByTagName("table")(0).Children(2).Children(m - 2).Children(l - 2).innerText

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
'======================Boucle pour mise à jour page======================
 
Dim Nombre_colone As Integer
Dim Nombre_Ligne As Integer
Dim Nombre_R As Integer 'Nb de résultats
Dim k As Integer 'chiffre pour remplir le tableau
Dim Valeur As Date
Dim I As Integer
Dim j As Integer
Dim l As Integer
Dim m As Integer
 
 
 
 Worksheets("Feuil1").Cells.Select
Selection.Delete Shift:=xlUp
 
 
'======================IMPORT NOTE EDUCAPLAY CLASSE 1======================
 
 
        'recherche le nombre de ligne elève
        Nombre_Ligne = HTML.getElementsByTagName("thead")(1).Children.Length
'boucle pour ecrire nom des élèves dans ligne colonne 1 tableau
For j = 2 To (Nombre_Ligne + 1)
 
        'NN = HTML.getElementsByTagName("thead")(1).Children(9).innerText
        'emplacement ecriture nom eleve
        'NN = Worksheets("FEuil1").Cells(j, 1)
        Worksheets("FEuil1").Cells(j, 1) = HTML.getElementsByTagName("thead")(1).Children(j - 2).innerText
        'MsgBox NN
 
Next j
        'recherche le nombre de colonne machine
        Nombre_colone = HTML.getElementsByTagName("tr")(0).Children.Length
        'MsgBox Nombre_colone
        'boucle pour ecrire nom des machines dans colonne tableau
For I = 2 To (Nombre_colone + 1)
 
        'emplacement ecriture nom machine
        'Worksheets("FEuil1").Cells(1, i) = HTML.getElementsByTagName("th")(i - 2).innerText
        Worksheets("FEuil1").Cells(1, I) = HTML.getElementsByTagName("tr")(0).Children(I - 2).innerText
 
 
'note eleve
'Worksheets("FEuil1").Cells(j, I) = HTML.getElementsByTagName("table")(0).Children(2).Children(j - 2).Children(I - 2).innerText
'Worksheets("FEuil1").Cells(j, I) = NN
 
 
Next I
 
Application.Wait (Now + TimeValue("0:00:01"))
 
Nombre_Ligne1 = HTML.getElementsByTagName("table")(0).Children(2).Children().Length
Nombre_colone1 = HTML.getElementsByTagName("table")(0).Children(2).Children(0).Children().Length
 
For m = 2 To Nombre_Ligne1 + 1
      For l = 2 To Nombre_colone1 + 1
 
 
        'remplissage avec résultat
 
    Worksheets("FEuil1").Cells(m, l) = HTML.getElementsByTagName("table")(0).Children(2).Children(m - 2).Children(l - 2).innerText
'k = k + 1
 
 
 
      Next l
 
Next m

Bonjour dadou,

Pour éviter de rechercher toutes les tables de la page pour chaque cellule parcourue, je te propose dans un premier temps de décomposer cette instruction :

Code:

Worksheets("FEuil1").Cells(m, l) = HTML.getElementsByTagName("table")(0).Children(2).Children(m - 2).Children(l - 2).innerText

Dans le code que tu as mis dans ton dernier post, remplace les lignes 54 à 70 par
Code:

1 2 3 4 5 6 7 8 9 10 11 Set maTable = HTML.getElementsByTagName("table")(0).Children(2) Nombre_Ligne1 = maTable.Children().Length Nombre_colone1 = maTable.Children(0).Children().Length For m = 2 To Nombre_Ligne1 + 1 Set maLigne = maTable.Children(m - 2) For l = 2 To Nombre_colone1 + 1 Worksheets("FEuil1").Cells(m, l) = maLigne.Children(l - 2).innerText Next l Next m Set maTable = Nothing Set maLigne = Nothing
et regarde si ça marche mieux.

10/01/2019, 09h26
dadou42380

Efectué la décomposition mais....

Bonjour,
merci pour ton aide j'ai décomposé mon code avec ton code, mais j'ai une erreur d’exécution de 13 incompatibilité de type????
En faite mon code fonctionne super bien sur mon PC fixe et lorsque je l'essai sur mon pc portable il va me chercher d'autre valeur caché sur la page et plante la macro. je ne comprends pas la différence de fiabilité.
Le code prend la bonne table pour le comptage mais pas la même pour le inner text (sur mon portable)
Problème soit de navigateur net, soit de page web foireuse, soit de code approximatif qui ne précise pas assé correctement la table à extraire. Je ne sais plus quoi faire pour fiabiliser la chose.
Je suis à 2 doigts de toucher le Graal.
Merci encore
10/01/2019, 09h50
dadou42380

le pb

En faite le problème réside sur la vitesse d'affichage de la page web.
Si ma page web s'affiche vite alors les données du bon tableau sont scrapper. Sinon il prend une autre table qui est invisible à l'ecran mais pas à la console html. On peut arriver à le surligner avec la console. Et cela me prend la tête grave
10/01/2019, 10h04
dadou42380

En faite je viens de comparer le code html de ma page sur internet explorer et sur firefox et il y des lignes de code en plus sur IE avec ce tableau caché qui me fou la merde dans mon code.
C'est la page sur IE qui est merdique.
je vais essayer de l'ouvrir avec Firefox dans mon code.
je me relance donc dans les tuto pour cela
10/01/2019, 10h49
zenpbb
Bonjour,
Dans ton code, tu as bien Dim MyBrowser As InternetExplorer, donc pourquoi coder à partir du comportement de ton site web dans Firefox ?

Avant de tenter de passer sur Firefox (ce que je te conseille d'oublier), regarde (sur IE) si ta table (ou un de ses conteneurs) ne possède pas un paramètre id qui te permettrait de la chopper directement via HTML.getElementById(...).

Sinon, décompose

Code:

Set maTable = HTML.getElementsByTagName("table")(0).Children(2)

en quelque chose comme
Code:

1 2 3 4 5 6 Set mesTables = HTML.getElementsByTagName("table") For Each tbl in mesTables If ... Then Set maTable = tbl End If End If
ou alors va voir du côté de getElementsByClassName qui peut également t'aider à identifier la table via la propriété class (d'elle-même ou d'un de ses conteneur)
10/01/2019, 10h51
dadou42380

merci j'essai tout de suite
10/01/2019, 11h04
dadou42380

Irroni du sort il y a un Id sur la table que je ne souhaite pas mais pas sur celle que ej souhaites
10/01/2019, 11h09
dadou42380

suite

ma table que je souhaite srécupérer à des thead avec des class name.
comment puis je signifier dans mon code que celle-ci que je souhaites
10/01/2019, 12h10
zenpbb

C'est difficile sans voir le code source, mais ta table n'est-elle pas dans un conteneur div ou autre, qui lui aurait une propriété class ou id ?

Sinon, lorsque tu as identifié un élément (quel qu'il soit) avec getElementsByClassName ou getElementById, tu as accès à son parentElement ou ses children
10/01/2019, 12h59
dadou42380

merci merci ça marche

Donc je suis passé pas les class name et j'ai la fiabilité désiré entre mes 2 pc.
ENORME merci merci pour l'aide