Ouverture et recupere information de pages web Via VBA Excel

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 :

Code:

---

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

---

Ce code permet bien l'ouverture d'Internet Explorer. Le souci c'est :

Code:

---

IE.Navigate2 "http://********.fr/"

---

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 ?

Merci par avance je suis dessus depuis 2h00 et je ne trouve pas de solution.

Kocipia

salut,

question bete, as-tu l'adresse de cette 2e page qui s'ouvre ? Est-elle accessible directement sans passer par la premiere page ??

Bonjour et merci de m'aider.

Code:

---

IE.Visible = True

---

Ce code ouvre internet explorer met aucune pas web.

Code:

---

IE.Navigate2 "********************************"

---

Ce code ouvre le site demandé mais sur une seconde page.


Je voudrais controler cette seconde page et non la première mais le reste de mon code ne marche que sur la première qui reste vierge :cry:

Donc si je peut ouvrir dicrectement la seconde page et la controler ce serait impeccable.

Merci par avance.

En gros, il me faudrait une ligne de ce genre :

Code:

---

IE.Visible = "http://SITE.fr/" = True

---

Donc qui m'ouvre Internet Explorer directement sur cette page.

Quel type d'infos souhaites tu récupérer? Un fichier pdf, xls?

Du tout, je dois naviguer dessus.

Je le fais chez moi et ça fonctionne bien. Le problème c'est cette seconde page qui s'ouvre et ma macro qui ne la detecte pas et reste figé sur la première.

Ok je demande ça parce que dans ton premier message tu indiques :

Citation:

---

je souhaiterai créer une macro qui permet de récuperer des informations sur un site web

---

Du coup je peux pas trop t'aider si tu souhaites naviguer dessus

Regarde peut etre du côté de AppActivate pour aller sur ta deuxième fenetre

Bonjour à tous,

merci à ceux qui ont tenté de m'aider. Je viens de trouver une manip :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim winShell As New ShellWindows   Set IE = CreateObject("InternetExplorer.Application")   On Error Resume Next For Each IE In winShell If IE.LocationURL = "http://*********.fr/" Then IE.Activate GoTo passelidentification End If Next IE

---

Pour ceux que ça interesse, ce bout de code permet de naviguer entre les différentes fenetres internet explorer ouverte et d'activer cette qui correspond à l'adresse rentré sur cette ligne :

Code:

---

If IE.LocationURL = "http://***********.fr/" Then

---

Merci et à bientot.