Rebonjour,

Dans le cadre d'une recherche que je mène pour mon université, je dois aller prendre dans la page suivante: http://fr.ulule.com/madatrek-3/ les informations suivantes:

Pièce jointe 190890
Pièce jointe 190891

Voici le code que j'ai pour le moment:
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
 
Sub Macro2()
    Dim IE As New InternetExplorer
    Dim Creator As String
    IE.Visible = False
    IE.navigate "http://fr.ulule.com/madatrek-3/"
    Do
    DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.document
 
 
    Next
End Sub
Je me rends bien compte que je demande pas mal d'information. Si cela prends trop longtemps d'écrire le reste du code. N'hésitez pas à me montrer l'exemple. j'adapterai pour le reste.

Merci d'avance,

Bonne soirée,

Thomas