Bonjour,
Je me présente, je m'appel Romain et je suis étudiant en informatique. Je suis actuellement entrain d'essayer de developper une application pour automatiser une recherche de donnés sur un site afin de les mettres dans un tableau excel.

Je me retrouve avec le code source suivant (qui fonctionne) mais la je suis face à un problème. Le site est très mal fait et aucune des balises n'a un id ou même un nom.
J'essaye d'acceder au texte de cette facon la mais ca ne fonctionne pas.
test = ie.document.body.div.div(5).div(2).Table.tr.td.Table.tbody.tr.td.p.Value (chemin trouvé avec firebug)
Avez-vous une solution svp?

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
    Set IE = CreateObject("InternetExplorer.Application")
 
    ' You can uncoment Next line To see form results
    IE.Visible = True
 
    ' Send the form data To URL As POST binary request
    IE.Navigate "http://arm"
 
 
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
 
    IE.Document.getElementById("toValidateBySaLink").Click
 
        Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
Merci de votre réponse.