Bonjour à toutes et à tous,
Je vous expose mon problème : Pour mon travail je souhaiterai créer une macro qui permet de récuperer des informations sur un site web. J'utilise donc ce morceau de code récuperé sur le net :
Ce code permet bien l'ouverture d'Internet Explorer. Le souci c'est :
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 Public Etat As String Public IE As New InternetExplorer '****** Internet Explorer Public LibelleLien As String '****** Libelle du lien IE Sub ConnectionIE() IE.Visible = True IE.Navigate2 "********************************" If Timer = False Then GoTo Error_Timer 'défini la variable de la page web. Dim htmlDoc As HTMLDocument Set htmlDoc = IE.Document While htmlDoc.Title <> "********************" Wend
Une nouvelle s'ouvre alors (parametre de l'entreprise que je ne peut modifier) donc en gros comment passer sur la deuxieme page et y recuperer des infos ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part IE.Navigate2 "http://********.fr/"
Merci par avance je suis dessus depuis 2h00 et je ne trouve pas de solution.
Kocipia
Partager