Discussion :

[Gteyy]

Bonjour à tous, étant débutant depuis peu sur Excel, je souhaiterais créer une macro pour envoyer des données sur un site, (ici je vais sur societe.com pour envoyer le n° SiREN de l'entreprise), et récupérer certaines données telle que le nom de l'entreprise ou encore son chiffre d'affaire. J'ai déjà pu créer une macro qui envoie bien le n° SIREN et effectuer une recherche, seulement le code bloque lorsque je récupère le contenu de la variable HtmlGenericElement et me met comme erreur : variable objet ou variable de bloc with non défini. Petite précision, le code fonctionne en pas à pas, j'ai donc essayé de mettre des timers ou encore de mettre un timer pour attendre la fin de chargement de la page web, mais cela ne fonctionne pas en automatique. Ayant suivi le tutoriel sur ce site, j'ai essayé aussi les espions pour voir ce que pouvais contenir ma variable IE ou IEDoc, mais les variables restant vides. En vous remerciant d'avance.

Gteyy

[Qwazerty]

Bonjour

Un peu de lecture
https://qwazerty.developpez.com/tuto...-et-vba-excel/

++
Qwaz

[Gteyy]

Merci de me rediriger vers le cours, mais je m'étais basé sur ça pour faire ma macro, j'ai pu trouvé le problème quand même, la variable HtmlGenericElement n'avait pas le temps de se mettre à jour, il fallait mettre un timer pour atteindre que HtmlGenericElement ne sois plus 'Nothing' :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set HtmlElementStandard = Nothing
 
While HtmlElementStandard Is Nothing
Set HtmlElementStandard = IEDoc.ie8_getElementById("presentationlien")
Wend
 
LeTexteExtrait = HtmlElementStandard.innerText
 
Sheets("ACCUEIL").Cells(1 + i, 8).Value = LeTexteExtrait
 
Set HtmlElementStandard = Nothing