Importer une Table HTML

Version imprimable

Bonjour,

Je n’arrive pas à récupérer cette table HTML après changement de la variable IEdoc en Page HTML (Sub ImpNxACQ4), erreur 438 ligne 34 (TableHTML Prop ou meth non géré), du moins je crois que c'est de là que vient le problème :
Merci à qui m'aidera :

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
Option Explicit
Dim IE As New InternetExplorer
Dim IEdoc As HTMLDocument, PageHTML As HTMLDocument
Dim DOCelement As Object
Dim clipboard As MSForms.DataObject
Dim BOlem As HTMLSelectElement
Dim Dade As HTMLInputElement, Dafi As HTMLInputElement
Dim TableHTML As HTMLTable
Dim DX As String
Dim madat As Date
Dim rep As Integer
Dim xCell As Range
 
Sub ImpNxACQ()
  ‘ …/…
 Call connexion
 Call ImpNxACQ3
End Sub
 
  Sub ImpNxACQ3()
    Set Dade = IEdoc.all("")  'On entre les dates
    Dade.Value = madat
    Set Dafi = IEdoc.all("")
    Dafi.Value = madat
    Set BOlem = IEdoc.all("")
    BOlem.Click
    WaitIE IE
    Set IEdoc = Nothing  ‘ On tue IEdoc
    Call ImpNxACQ4
End Sub
 
Sub ImpNxACQ4()
    Set PageHTML = IE.document ‘ On recharge Page HTML 
   Set TableHTML = PageHTML.getElementsById("") 'Recupération Table HTML
    WaitIE IE 'On attend la fin du chargement
    Set clipboard = New MSForms.DataObject  'Transfert  vers Excel
    clipboard.SetText "Text", TableHTML.outerHTML
    clipboard.PutInClipboard  ‘ Copie verx Excel
IE.Quit
 
Sub connexion()
    UserForm2.Show ' Message attente
    Application.ScreenUpdating = False
    IE.navigate ("https:// ")     'Chargement de la page 
    IE.Visible = True 'Affichage de la fenêtre IE
    WaitIE IE   ' attente de fin de chargement
    Set IEdoc = IE.document 'On pointe le membre Document
 
End Sub

26/01/2017, 10h51
Jean-Philippe André

Salut,

un peu de lecture:
http://qwazerty.developpez.com/tutor...-et-vba-excel/
On y trouve un exemple d'erreur 438 et une explication
http://qwazerty.developpez.com/tutor...-excel/#LV-A-1
26/01/2017, 11h12
JeanPaulR

Pardon, merci pour ces infos.
Mais je connais ces 2 tutos presque par cœur et je n'arrive toujours pas à m'en sortir
26/01/2017, 11h23
Jean-Philippe André

Ce qui m'interpelle, c'est l'absence de parametre dans ton all (ici all(""))

alors que dans le lien fournit plus haut, il y a a minima un 0 :)
26/01/2017, 12h35
JeanPaulR

RE

Ils existent, mais j'ai laissé en blanc pour cette demande
26/01/2017, 12h47
Jean-Philippe André

OK et donc dans ta page HTML, tu as un seul element de ce nom la (celui que tu ne nous donne pas :aie: ) ?
26/01/2017, 14h49
JeanPaulR

oui,j'ai vérifié de nombreuses fois

OK,

as-tu essaye d epasser par la solution

Code:

1
2
3
4
5
Dim iCollection As IHTMLElementCollection
Set iCollection = IEDoc.all("tonid")
 
   'On pointe arbitrairement le premier élément
   Set Generic = iCollection(0)

Non, je n'ai pas essayé mais j'ai un peu avancé sur mon problème sans pourtant l'avoir résolu. Il se situerait à cet endroit du code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub ImpNxACQ4() Set PageHTML = IE.document 'Recupération Table HTML att: Set TableHTML = PageHTML.getElementById("sd_ListeAcquereurs") 'On attend la fin du chargement, si pas chargé If TableHTML Is Nothing Then GoTo att: End If 'Transfert vers Excel Set clipboard = New MSForms.DataObject clipboard.SetText TableHTML.outerHTML clipboard.PutInClipboard 'Copie sur MSD ActiveSheet.PasteSpecial
Le set TableHTML ne passe pas la première fois d'ou cette boucle If déplorable, mais je n'ai pas trouvé mieux. Avec cette boucle, il l'a trouve bien mais il me génère une erreur au moment du Paste. Une idée, ...

Re bonjour a tout les deux

oulah!!! c'est quoi ce code ??!!???

pourquoi passe tu par 3 sub??????? ca n'a ni queue ni tète

d'apres ce que je lis dans tes explication tu souhaite récupérer une table pour la coller dans un sheets

mais comme ca t'aura rien c'est tellement bancale qu'il n'y a rien a garder désolé

les gestion d'attente tu n'a pas lu cela dans le tuto de qwazerty????

tiens voila
peut être il te faudra intégrer une gestion element(existant ) ou pas dans la sub ImpNxACQ3

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
Option Explicit
Dim IE As Object, IEdoc As Object, URL
Sub ImpNxACQ()
URL = "http://...." 'met to url icici!!!!
    connexion ' on appelle la fonction qui créée est ouvre une instance IE
    waitie ' on attend qu'elle soit prete
     ImpNxACQ3 'elle est prete alors on appelle la sub "ImpNxACQ3"
End Sub
'
'S
ub connexion(URL)
    UserForm2.Show    ' Message attente
    Application.ScreenUpdating = False
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .navigate ("https:// ")     'Chargement de la page
        .Visible = True    'Affichage de la fenêtre IE
        Set IEdoc = .document    'On pointe le membre Document
    End With
End Sub
'
'
Sub ImpNxACQ3()
' ICI PEUT ETRE METTRE UN TEST D'EXISTANCE DE L'ELEMENT
    Set Dade = IEdoc.all("")  'On entre les dates
    Dade.Value = madat
    Set Dafi = IEdoc.all("")
    Dafi.Value = madat
    Set BOlem = IEdoc.all("")
    BOlem.Click
    waitie IE ' ici on met encore une attente ,tu viens de modifier la page alors il y cetainement un refresh
    Call ImpNxACQ4BIS
 
End Sub
'
'
Sub ImpNxACQ4BIS()
' On recharge Page HTML
    Application.ScreenUpdating = False
    Set TableHTML = IEdoc.getElementsById("")    'Recupération Table HTML
    With CreateObject("htmlfile")
        'on met dans le clipbord
        If .parentWindow.clipboardData.setData("Text", TableHTML.outerhtml) Then
            'on colle dans le sheets la table
            'A ADAPTER !!!!!!!!! LE NOM DU SHEETS ET LA PREMIERE CELLULE DE DESTINATION
            With Sheets("nom du sheets"): .Activate: .Cells(1, 1).Select: .Paste: End With
            ' on vide le clipborad
            .parentWindow.clipboardData.clearData "Text"
        End If
    End With
  IE.Quit
  Set IE = Nothing: Set IEdoc = Nothing
  End Sub
'
'
Function waitie()
    Do: DoEvents: Loop While IE.readystate <> 4
End Function
'
''
'Sub ImpNxACQ4()
' On recharge Page HTML
    'Set TableHTML = IEdoc.getElementsById("")    'Recupération Table HTML
    'waitie IE    'On attend la fin du chargement
' la partie si dessous je ne l'utilise pas car cet object est assez capricieux
    'Set clipboard = New MSForms.DataObject  'Transfert  vers Excel
    'clipboard.SetText "Text", TableHTML.outerhtml
    'clipboard.PutInClipboard  ' Copie verx Excel
'    'IE.Quit
'End Sub

Merci de t’intéresser à mon cas, mon niveau de quasi débutant n'aide pas.

J'ai beaucoup travaillé sur ce que tu m'as envoyé.

Je bloque toujours sur 2 points : Une erreur d'exécution, d'automation sur Set IEdoc :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Option Explicit Dim IE As New InternetExplorer Dim IEdoc As Object Dim TableHTML As HTMLTable Dim URL Sub connexion() 'UserForm2.Show ' Message attente IE.navigate "" IE.Visible = True Set IEdoc = IE.document 'On pointe le membre Document Call id(IEdoc) 'Proc id + Mdp IE.navigate "" DemDate End Sub
J'ai essayé ta méthode et celle de Qwazerty, mais rien n'y fait.

Le 2éme point concerne la sélection de la table HTML, il ne l'a trouve pas en exécution, mais en faisant un retour arrière en débogage, là il l'a trouve ! Temps de chargement ?
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub ImpTab() ' On recharge Page HTML Application.ScreenUpdating = False Set TableHTML = IEdoc.all("sd_ListeAcquereurs") waitie With CreateObject("htmlfile") 'on met dans le clipbord If .parentWindow.clipboardData.setData("Text", TableHTML.outerHTML) Then With Sheets("MSD"): .Activate: .Cells(, 2).Select:
Merci pour ton aide et ta compréhension

28/01/2017, 10h14
patricktoulon

Re

Re bonjour
C est bien de ca que je parlais en e disant de verifier les gestion d attente ou d existence de l element je regarde cela quand je rentre toute a l heure mais sans url. Valide je travail en aveugle

Merci de ta réactivité.
Je ne peux pas te communiquer URL du site, c'est un site professionnel privé avec id + Mdp.

Par contre pour la Table, tu trouveras ci-dessous le code HTML du site si cela peut aider :
Code:

1 2 3 4 <table class="table table-striped table-condensed font-small cadre" cellspacing="0" RenderOuterTable="false" id="sd_ListeAcquereurs" style="border-collapse:collapse;"> <tr> <td>Code</td><td>Cabinet</td><td>Créateur</td><td>Type</td><td>Acquéreur</td><td>Téléphone 1</td><td>Apport</td><td>Activités</td><td>Zones</td><td>Statut</td> </tr><tr>

28/01/2017, 12h27
Marc-L

Bonjour !

Citation:

Envoyé par JeanPaulR

il ne l'a trouve pas en exécution, mais en faisant un retour arrière en débogage, là il l'a trouve ! Temps de chargement ?

C'est le classique problème du développeur ayant très mal observé le fonctionnement de la page Web,
c'est donc juste un problème de synchronisation !
Pour ceux n'y comprenant rien, il suffit d'insérer une pause avec une marge, par exemple cinq secondes …
Sinon comme dans les nombreux exemples de ce forum et du forum Contribuez, il suffit de tester si l'objet est disponible …

Citation:

Envoyé par JeanPaulR

Je ne peux pas te communiquer URL du site

Sans pouvoir visualiser le comportement du site, c'est donc difficile d'apporter de l'aide …

re
Bonjour
oui marc c'est que j'ai dis précédemment attente et teste d'existence

comme je n'ai pas l'url je pas deviner
on va dire que le "BOlem" est l'élément qui est disponible en dernier on va donc faire un do/loop sur lui avec un timer de 15 secondes pour la sortie en cas de non dispo
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub ImpNxACQ3() ' ICI PEUT ETRE METTRE UN TEST D'EXISTANCE DE L'ELEMENT Dim t, ts t = Timer Do ts = Timer - t Loop While IEdoc.all("le nom de de ton BOlem") Is Nothing Or ts > 15 'adapte le nom de ton bouton que tu clique en dernier If ts >= 15 Then MsgBox "temps de connection trop long verifier votre connection": Exit Sub Set Dade = IEdoc.all("") 'On entre les dates Dade.Value = madat Set Dafi = IEdoc.all("") Dafi.Value = madat Set BOlem = IEdoc.all("") BOlem.Click waitie IE ' ici on met encore une attente ,tu viens de modifier la page alors il y certainement un refresh Call ImpNxACQ4BIS End Sub
voila
peut être faudra t-il faire pareil pour la table

28/01/2017, 16h00
JeanPaulR
Merci, cela à l'air de marcher pour l'instant.

Sur le point 1 J'ai ajouté :
Code:

1 2 3 Application.Wait Now + TimeValue("0:00:05") Set IEdoc = IE.document 'On pointe le membre Document
Sur le point 2,
Code:

1 2 3 Application.Wait Now + TimeValue("0:00:05") Set TableHTML = IEdoc.all("sd_ListeAcquereurs") waitie
Si tu penses que c'est la bonne solution, je clos la discussion.

Grand Merci à toi d'avoir consacrer un peu de temps à quelqu'un qui comme moi - malgré qu'il ne comprenne rien -, cherche quand même à apprendre et à comprendre.