IE.document contient toujours <Aucune variable> et donne une incompatibilité de type

Version imprimable

3 pièce(s) jointe(s)

Bonjour,

Je suis le tutoriel de Qwazerty Interaction avec Internet Explorer via VBA Excel et en reprenant le code donné en exemple, je m'aperçois que la variable IE n'est pas alimentée.

Le code que j'emploie est celui de la section IV-C. Inscrire du texte dans une zone de texte
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 Option Explicit Sub RechercheVBAExcel() 'Déclaration des variables Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim InputGoogleZoneTexte As HTMLInputElement Dim InputGoogleBouton As HTMLInputElement 'Chargement d'une page Web Google IE.navigate "www.google.fr" 'Affichage de la fenêtre IE IE.Visible = True 'On attend le chargement complet de la page WaitIE IE 'On pointe le membre Document Set IEDoc = IE.document 'On pointe notre Zone de texte Set InputGoogleZoneTexte = IEDoc.all("q") 'On définit le texte que l'on souhaite placer à l'intérieur InputGoogleZoneTexte.Value = "VBA Excel" 'On attend la fin de la recherche WaitIE IE 'On libère les variables Set IE = Nothing Set IEDoc = Nothing End Sub Sub WaitIE(IE As InternetExplorer) 'On boucle tant que la page n'est pas totalement chargée Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop End Sub
Les références sont : Pièce jointe 449690
J'exécute la macro en mode pas à pas.
La page internet explorer 11 est bien ouverte et chargée.

La fenêtre espion donne, quand je suis arrêté avant l'exécution de la ligne 20 Set IEDoc = IE.document : Pièce jointe 449693

Et le message d'erreur (Erreur d'exécution '13': incompatibilité de type) quand j'exécute cette ligne 20 Set IEDoc = IE.document : Pièce jointe 449697

Comment faire en sorte que le contenu de la page internet soit effectivement passée dans IE afin que je puisse continuer à travailler s'il vous plaît ?
Merci d'avance et bonne journée.

Essaie d'initialiser ta variable

Code:

1
2
 'Initialisation des variables
   Set IE = CreateObject("InternetExplorer.Application")

13/02/2019, 12h40
tibibou
Citation:
Envoyé par bobby5169

Essaie d'initialiser ta variable

Code:

1 2 'Initialisation des variables Set IE = CreateObject("InternetExplorer.Application")
Merci bobby5169, je viens d'essayer. Rien ne change, les erreurs sont identiques.

J'avais eu un besoin similaire et ma boucle d'attente était plutôt:
Code:

1 2 3 4 While oNav.ReadyState <> READYSTATE_COMPLETE Or oNav.Busy = True DoEvents Wend
Alors que la tienne finalement, tu n'y rentres jamais
Code:

1 2 3 4 Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop

Bonjour
il y a tellement d'exemple sur le forum que je me demande si tu a utiliser le moteur de recherche de DVP ( ce qui m'etonnerait )

puré!!!
exemple 1
on ouvre et navigue dans google et manipule les htmlelements

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
 
Option Explicit
Sub RechercheVBAExcel()
'Déclaration des variables
    Dim IE As Object, IEDoc As Object, InputGoogleZoneTexte As Object, InputGoogleBouton As Object
    Set IE = CreateObject("internetexplorer.application")    'creation de l'intence de internet
    IE.navigate "www.google.fr"    'Chargement d'une page Web Google
 
    IE.Visible = True    'Affichage de la fenêtre IE
 
    Do: DoEvents: Loop While IE.readystate <> 4    'On attend le chargement complet de la page
    Set IEDoc = IE.document    'On pointe le membre Document
 
    Set InputGoogleZoneTexte = IEDoc.all("q")    'On pointe notre Zone de texte
    InputGoogleZoneTexte.Value = "VBA Excel"    'On définit le texte que l'on souhaite inscrire à l'intérieur
 
    Set InputGoogleBouton = IEDoc.all("btnK")(0)    ' on pointe sur le bouton rechercher
    InputGoogleBouton.Click    ' on clique sur le bouton rechercher
 
    Do: DoEvents: Loop While IE.readystate <> 4    'On attend la fin de la recherche
 
    ' analyse de ta recherche ici 
    '........
    '........
 
    'On libère les variables
    Set IE = Nothing
    Set IEDoc = Nothing
End Sub

!! SINON TU PEUX FAIRE PLUS SIMPLE !!!

exemple 2
on argumente l'url directement !!!!!et pas besoins de manipuiler les inputs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub RechercheVBAExcel2()
'Déclaration des variables
    Dim IE As Object, IEDoc As Object, InputGoogleZoneTexte As Object, InputGoogleBouton As Object, recherche As String
    recherche = "VBA EXCEL"    'ce que tu recherche
    Set IE = CreateObject("internetexplorer.application")    'creation de l'intence de internet
 
    IE.Visible = True    'Affichage de la fenêtre IE
 
   'Chargement d'une page Web Google ARGUMENTEE!!!!!!!!!!!!!!!la recherche se fait toute seule sans manipulation des htmlelements
    IE.navigate "https://www.google.fr/search?source=hp&q=" & recherche & "&btnK=Recherche+Google&oq=vba+excel"
 
    Do: DoEvents: Loop While IE.readystate <> 4    'On attend le chargement complet de la page
 
   ' analyse de ta recherche ici 
   '........
   '........
 'On libère les variables
    Set IE = Nothing: Set IEDoc = Nothing
End Sub

100 fois je l'ai donné cet exemple ;)

et si c'est pas assez explicit
ben tu fait une recherche sur DVP :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub RechercheVBAExcel3()
'Déclaration des variables
    Dim IE As Object, IEDoc As Object, InputGoogleZoneTexte As Object, InputGoogleBouton As Object, recherche As String
    recherche = "VBA internet google"    'ce que tu recherche
    Set IE = CreateObject("internetexplorer.application")    'creation de l'intence de internet
 
    IE.Visible = True    'Affichage de la fenêtre IE
    'Chargement d'une page Web Google ARGUMENTEE!!!!!!!!!!!!!!! avec la recherche
    IE.navigate "https://www.developpez.net/forums/search.php/?query=" & recherche
 
    Do: DoEvents: Loop While IE.readystate <> 4    'On attend le chargement complet de la page
 
    IE.document.getelementsbyname("searchuser")(0).Value = "" 'membre recherché 
    IE.document.getelementsbyname("dosearch")(0).Click ' click dessus
    'On libère les variables
    Set IE = Nothing: Set IEDoc = Nothing
End Sub

14/02/2019, 23h05
tibibou

2 pièce(s) jointe(s)

Erreurs sur les trois exemples

Bonsoir patricktoulon,

Merci pour tes informations complètes (j'ai déjà passé beaucoup de temps partout pour résoudre mon problème). J'aime bien trouver seul les solutions, c'est une façon d'apprendre.

J'exécute les trois exemples en mode pas à pas et lentement pour laisser le temps à la page de se charger, même s'il y a la boucle pour s'en assurer.
Sur l'exemple 1 (ligne 11, DoEvents) et l'exemple 2 (ligne 12, DoEvents), j'ai une erreur 462
Pièce jointe 450218
Sur l'exemple 3 (ligne 13, IE.document.getElementsByName("searchuser")(0).Value = "") donne une erreur 91. IE contient bien des informations et IE.Document contient <Aucune variable>
Pièce jointe 450221

Next step ?
14/02/2019, 23h32
patricktoulon

re

re
jepense que tu a un soucis avec tes librairie IE
les codes sont simples

l'erreur sur doevents est sinificative que l'instance de IE ne se fait pas pour alors je parirais a 10 contre 1 que tu tourne sur 2016 et la je peux rien por toi
des erreurs innexpliquées avec IE/vba sur excel 2016 m'ont été rapportées et en grand nombre
notament l'erreur avec IE 11 qui avait été resolu avec un KB sur 2007 et W7 est bien revenu avec 2016
essaie un wait de 5 secondes avant de do loop

librairies ?

re
Je suis d'accord que les codes sont simples et je les avais fait marcher il y a deux ans.
Comment corriger les problèmes de librairie IE (je soupçonne aussi un problème dans ces entrailles, mais ça me dépasse) ?

J'ai retourné les trois exemples en patientant 10 secondes avant la ligne critique.
J'ai les mêmes erreurs, toutefois, dans l'exemple 2, j'ai pris l'initiative de remplacer
IE.navigate "https://www.google.fr/search?source=hp&q=" & recherche & "&btnK=Recherche+Google&oq=vba+excel"
par
IE.navigate "http://aila.fr/" ' pour tester autre chose
et je n'ai pas eu d'erreur.
J'ai aussitôt essayé avec cette url aila.fr et l'exemple 1 marche. Pour mieux tester, j'ai modifié le code de l'exemple 1 en :
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 Option Explicit Sub RechercheVBAExcel() 'Déclaration des variables Dim IE As Object, IEDoc As Object, InputGoogleZoneTexte As Object, InputGoogleBouton As Object Dim collection_item As IHTMLElementCollection, champ As String Set IE = CreateObject("internetexplorer.application") 'creation de l'intence de internet 'IE.navigate "www.google.fr" 'Chargement d'une page Web Google IE.navigate "aila.fr" IE.Visible = True 'Affichage de la fenêtre IE Do: DoEvents: Loop While IE.readyState <> 4 'On attend le chargement complet de la page Set IEDoc = IE.document 'On pointe le membre Document 'Set InputGoogleZoneTexte = IEDoc.all("q") 'On pointe notre Zone de texte 'InputGoogleZoneTexte.Value = "VBA Excel" 'On définit le texte que l'on souhaite inscrire à l'intérieur 'Set InputGoogleBouton = IEDoc.all("btnK")(0) ' on pointe sur le bouton rechercher 'InputGoogleBouton.Click ' on clique sur le bouton rechercher Do: DoEvents: Loop While IE.readyState <> 4 'On attend la fin de la recherche ' analyse de ta recherche ici Set collection_item = IEDoc.getElementsByTagName("h2") MsgBox collection_item.Item(1).innerText MsgBox collection_item.Item(2).innerText 'On libère les variables Set IE = Nothing Set IEDoc = Nothing End Sub
Les deux MsgBox collection_item.Item(x).innerText donnent bien les résultats attendus.

J'en arrive à déduire qu'il peut/doit y avoir un problème à résoudre avec les librairies et que le code fonctionne avec des sites sans https (exemples 1 et 2), ce qui peut indiquer une piste à investiguer...

16/02/2019, 12h11
tibibou

réparation Excel

J'ai réparé Excel en suivant les instructions de Microsoft, mais ça ne change rien.
D'autres idées ?
Merci
17/02/2019, 12h43
tibibou

IE 11

J'ai aussi réinstallé Internet Explorer 11.
Pas mieux.

Pour votre information

Je n'ai pas réussi à résoudre le problème.
Les trois alternatives que j'ai examinées :
la fonction webread de Matlab,
les outils de web scrapping,
la solution suivante :
Code:

1 2 3 4 5 6 7 8 9 10 Do While IsNull(IE.document.getElementsByTagName("img")): DoEvents: Loop Set collection_item = IE.document.getElementsByTagName("img") For Each item In collection_item If (item.className = "logo_societe" And item.alt = "vue_2") Then Select Case item.ParentNode.nodeName Case ... mon code End Select End If Next 'item (img)
Si ça peut aider ceux qui rencontrent les mêmes problèmes.
Merci à ceux qui m'ont aidé.