Discussion :

[ft290]

Bonjour,

Je souhaiterai automatiser la lecture d'une page web, positionner le curseur sur un champ, valider afin de poursuivre la navigation et récuperer des infos au passage.
L'exemple concret et celui-ci :

Ouverture de boursorama, se positionner sur portefeuille, valider : cette action provoque l'affichage du portefeuille. une fois afficher je veux collecter les cours , puis passer au pertefeuille suivant.

Merci pour votre aide.

Cordialement

[drakkar_agfa]

Bonjour,

Je ne sais pas si cela peut aider mais voici un code qui ouvre google et qui fait une recherche avec un InputBox que l'utilisateur à remplit.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub connexion()
'   référence Microsoft Internet Controls
 
    Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
    Dim sRecherche As String
 
    sRecherche = InputBox("Quelle recherche?")
 
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate ("<a href="http://www.google.ca" target="_blank">http://www.google.ca</a>")
 
     ' attente de fin de chargement
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
    Set IEdoc = ie.Document
 
    Set DOCelement = IEdoc.getElementsByName("q").Item
    On Error GoTo fin '<-- en cas de mémorisation du login et du mdp
    DOCelement.Value = sRecherche
 
 
    Set DOCelement = IEdoc.getElementsByName("btnG").Item
    DOCelement.Click
 
fin:
End Sub

Avec ce genre de code tu peux te rendre au portefeuille.

[ft290]

Bonjour drakkar_agfa,

Merci pour ta reponse, cela m'a permi d'afficher la page Web que je voulais.

Maintenant je ne sais pas comment retrouver les infos. A l'aide de l'espion j'ai essayé de retrouver ce que je cherchais (pire que chercher une aiguille dans une botte de foin). A l'aide de firefox, j'ai affiché le source de la page en question. j'ai pu retrouver entre autre les cours des valeurs du portefeuille.

Comment les retrouver à l'aide de VB ?

Si tu as des idées, elles seront les biens venues, et je t'en remercie par avance.

Je ne suis pas restrictif : toutes les idées sont les bienvenues.

Bonsoir à tous

[drakkar_agfa]

Il est possible d'importer des données d'internet par le menu "Données, Données externes, Nouvelle requête sur le web"

Avec ceci, tu peux aller chercher des données sur internet.

Je ne sais pas la jonglerie qu'il faut effectuer pour jumeler les deux ensemble....

Bonne chance!