Discussion :

[tibibou]

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 :

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

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

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

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.

[bobby5169]

Essaie d'initialiser ta variable

Code :

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

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

[tibibou]

Essaie d'initialiser ta variable

Code :

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

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

Merci bobby5169, je viens d'essayer. Rien ne change, les erreurs sont identiques.

[bobby5169]

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

Code :

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

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 :

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

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

[patricktoulon]

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 :

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

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 :

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

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

Code :

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

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

[tibibou]

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

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>


Next step ?