base de données/internet

[jean]

Bonjour à vous tous,

Je souhaiterai construire une base de données complète sur Excel (suivi des cours de la bourse,..)

Pour cela, je souhaiterai qu'Excel aille récupérer automatiquement les données sur le site Internet suivant : http://bourse.lesechos.fr/IDE/matieres_premieres.htm

Quelqu un peut il m'aider...
merci beaucoup !!

 

[omicron]

Bonsoir Jean,

Je suis recemment tombé sur ton message. Intéressé par le sujet de l'alimentation de données Excel à partir du Web, j'ai fait quelques tests.

Tu trouveras en pièce jointe un exemple d'application qui pourra peut-être te servir de base.

Le code est assez succint. Comme tu le verras, seule la première partie est réellement utile. La seconde est juste destinée à améliorer le "look" de l'application.

=====================================================
Private Sub CommandButton1_Click()

Dim WebQry As QueryTable

'Effacement du contenu de la Page à Charger
Set WebSht = Sheets(Range("Sht").Value)
WebSht.UsedRange.Delete

'Préparation de la requête HTTP
If WebQry Is Nothing Then Set WebQry = WebSht.QueryTables.Add(Connection:="URL;Http:" & Range("Site_URL"), Destination:=WebSht.Cells(2, 1))
If Range("Tbl").Value <> 0 Then WebQry.WebTables = Range("Tbl").Value 'Eventuellement demande de filtrage de certaines tables de la page HTML

'Lancement de la requête HTTP
WebQry.Refresh

'Affichage de la page chargée
WebSht.Activate

End Sub
=====================================================
Private Sub CommandButton2_Click()

'Gestion Flip/Flop du bouton servant à afficher ou masquer les adresses des sites de référence (Pseudos-Favoris)

If CommandButton2.Caption = "Afficher les Favoris" Then
Range("Favoris").EntireRow.Hidden = False
CommandButton2.Caption = "Masquer les Favoris"
Else
Range("Favoris").EntireRow.Hidden = True
CommandButton2.Caption = "Afficher les Favoris"
End If

End Sub
=====================================================

En te souhaitant bon courage pour la suite.

Omicron ...