Variable Objet Innertext

marcodebute350 · 18 Juillet 2018

Bonjour,

Après 3 jours de recherches infructueuses sur de nombreux forums, je me décide à poster pour demander de l'aide.
Je souhaite récupérer sur mon tableau excel le pays qui s'affiche sur Google en tapant par exemple "Moscou Pays".
J'ai un code vba mais qui apparemment ne fonctionne pas au niveau des variables définies.
Voici le code VBA que j'ai fait:

Code:

Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
Dim HtmlElementStandard As HTMLGenericElement

IE.Navigate "www.google.fr"
IE.Visible = False
WaitIE IE

Set IEDoc = IE.Document
Set InputGoogleZoneTexte = IEDoc.all("q")
InputGoogleZoneTexte.Value = Sheets("BASE").Range("D3").Value & " Pays"
IE.Document.Forms(0).submit
WaitIE IE

Set HtmlElementStandard = IEDoc.getElementsByClassName("Z0LcW").Item(1)
MsgBox HtmlElementStandard.innerText

   Set IE = Nothing
   Set IEDoc = Nothing
   Set HtmlElementStandard = Nothing

J'obtient une erreur sur la ligne en jaune qui me dit "variable objet non définie".
Je joins aussi en image le code source de la page google (et le texte "Russie" que je souhaite récupérer).

Pourriez-vous m'aider svp?
Je vous remercie,

Marc

Dranreb · 18 Juillet 2018

Bonjour.
Je ne peux guère vous aider sur ce genre de chose, juste deux conseils :
1) — Mettez Option Explicit en tête du module pour avoir des messages plus clairs lors de la compilation, vu qu'il ne tentera plus une exécution s'il manque quelque chose pour qu'elle ait des chances de fonctionner.
2) — Vérifiez si les bibliothèques définissant ces types d'objets sont bien associées au projet VBA (menu Outils, Références…)

marcodebute350 · 18 Juillet 2018

Merci tout de même pour cette réponse rapide Dranreb.
J'ai rajouté le Option Explicit en haut du module, mais ça ne me donne pas plus d'explication, il lance quand même la macro pour s'arrêter à la ligne en jaune et me dire "Variable objet non défini".
Pour ce qui est des références, j'ai vérifié, et je pense qu'elles sont activées. Je vous les mets en PJ pour vérification.

Dranreb · 18 Juillet 2018

Joignez votre classeur, comme ça je ne peux pas savoir.

marcodebute350 · 18 Juillet 2018

Voici le fichier. J'ai essayé de le retravaillé entre-temps donc certain bout de code ont peut-être bougé par rapport au code initial

Dranreb · 18 Juillet 2018

J'ignore pourquoi ça ne marche pas, écrit comme mis en commentaire :
Comme en dessous ça à l'air de marcher :

VB:

'Set xobj = IEDoc.getElementsByClassName("Z0LcW").Item(0)
'Range("B2").Value = xobj.innerText
Range("B2").Value = IEDoc.getElementsByClassName("Z0LcW").Item(0).innerText

Notez que si déjà j'avais décidé de décomposer, je n'aurais certainement pas déclaré xobj As Variant, mais j'aurais cherché à savoir de quel type d'objet il s'agit. Un espion me dit: Object/HTMLDivElement, alors essayons: dim xobj as htmldivelement
—> il corrige la casse: Dim xobj As HTMLDivElement, ce qui prouve qu'il connait ce type. Ça aurait des chance de mieux marcher en re-décomposant, mais je ne vois pas ce que ça apporterait.

marcodebute350 · 19 Juillet 2018

Merci pour ton aide mais malheureusement, ça ne fonctionne toujours pas chez moi.
Il me mets toujours Objet non défini sur la ligne:
Range("B2").Value = IEDoc.getElementsByClassName("Z0LcW").Item(0).innerText
Par contre le HTMLDivElement est déjà mieux que le Variant effectivement, merci. Mon espion reconnait la class.

Dranreb · 19 Juillet 2018

Bonjour.
Non, je ne peux pas vous aider. Sauf qu'en déroulant pas à pas ça marche en l'exécutant une 2nde fois.
Je ne sais vraiment pas ce qu'on peut en tirer comme conclusion.

marcodebute350 · 19 Juillet 2018

Après avoir essayé de décomposer sans résultat, j'ai trouvé la solution
Le Set xobj = IEDoc.getElementsByClassName("Z0LcW").Item(0) renvoyait Nothing.
Il fallait créer une boucle pour attendre qu'il le trouve.

Code:

Do
Set xobj = IEDoc.getElementsByClassName("Z0LcW").Item(0)
Loop While xobj Is Nothing

Dranreb · 19 Juillet 2018

Oui, j'avais aussi un peu ça qui me trottait dans la tête…

Variable Objet Innertext

marcodebute350

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

marcodebute350

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

marcodebute350

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

marcodebute350

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

marcodebute350

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Discussions similaires