Discussion :

[cemyr]

Bonjour,

Je vais essayer d'exposer mon problème/ dites moi si ce n'est pas claire.

je réalise un programme qui accède à un site afin d'y récupérer un certain nombre de pages html.
Comment puis-je ouvrir, via VBA, les pages accessibles par liens hypertext [sachant que je ne peux pas mettre l'adresse desdites pages en paramètre].
Y'a t-il une fonction qui simule le clic sur les liens hypertext de la page?

Merci,

[aalex_38]

je réalise un programme qui accède à un site afin d'y récupérer un certain nombre de pages html.
Comment puis-je ouvrir, via VBA, les pages accessibles par liens hypertext [sachant que je ne peux pas mettre l'adresse desdites pages en paramètre

Comment tu fais alors pour accéder au site ?

[cemyr]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set IE = CreateObject("InternetExplorer.Application")
 
IE.Visible = True
 
IE.navigate ("https://....")
' Attente de fin de chargement
    While IE.Busy
        DoEvents
    Wend
 
IE.document.all("username").Value = login
IE.document.all("password").Value = mdp
IE.document.all("submit").Click 'simule le clic sur le bouton "se connecter"

et je navigue a travers les pages a coup de IE.navigate.
Mais les pages accessibles par liens hypertext n'ont pas d'adresse logique (dans le sens où l'adresse peut avoir n'importe quelle forme et ne peut être défini à l'avance)

[aalex_38]

Bon, tu peux faire une boucle sur les liens :

Code :

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

1
2
3
4
5
6
7
8
9
Dim IE As New InternetExplorer
Dim OneAll As HTMLObjectElement
Dim URL As String
For Each OneAll In IE.document.Links
    If OneAll.outerText = "ouvrir une session" Then
        IE.document.Links(OneAll.uniqueID).Click
        Exit For
    End If
Next

[cemyr]

parfait merci ...
Y'a t-il un moyen de récupérer l'URL de la page ainsi activée?

[cemyr]

Bon désolée j'aurai pu chercher un peu avant de psoer ma question!!
IE.LocationURL est mon ami