Discussion :

[kocipia]

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 :

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

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

Code :

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

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

[Jean-Philippe André]

salut,

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

[kocipia]

Bonjour et merci de m'aider.

Code :

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

IE.Visible = True

Ce code ouvre internet explorer met aucune pas web.

Code :

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

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

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 :

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

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

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

[Cerize]

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

[kocipia]

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.

[Cerize]

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

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