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 ...
