Par Macro en VBA, récupérer le source d'un fichier HTM sur le WEB

[malabarbe]

Bonsoir à tous,

Comment faire a partir d'une Macro, récupérer
le source d'un fichier HTM sur le WEB ?

Si je fais a la main, c'est Ok

Mais par Macro rien...

Merci pour vos conseils

 

[phlaurent55]

Re : Par Macro en VBA, récupérer le source d'un fichier HTM

bonsoir malabarbe,

Regarde du côté de Données > Données Externe > Nouvelle Requête sur le Web

Tu vas pouvoir extraire les tables

bonne soirée
à+

 

[malabarbe]

Re : Par Macro en VBA, récupérer le source d'un fichier HTM sur le WEB

Bonsoir

je récupère bien les données de la Table que j'ai sélectionnée.

Mais Les liens Hypertexte ne sont pas tous la !

Ce que je souhaiterai, c'est de récupérer le source de la Table
ou de la page WEB.
(Après, je sais faire pour récupérer les liens.)

ou :

Récupérer le contenu des liens de la Table

Private Sub UserForm_Activate()
 Dim objBK As Workbook
 Dim objQT As QueryTable
 
 Dim strDecimal As String
 Dim strThousand As String
 Dim boolUseSystem As Boolean
 
 'Création d'un nouveau classeur.
 Set objBK = Workbooks.Add
 
 'Création de la requète pour récupérer les données.
 With objBK.Worksheets(1)
     Set objQT = .QueryTables.Add( _
     Connection:="URL;http://www.cheval-francais.com/courses/pv08-06.htm", _
     Destination:=.Range("A1"))
 End With
 
 'Propriétés de la requète.
 With objQT
     .Name = "USD"
 
     'Empèche le raffraichissement automatique lors de l'ouverture du classeur.
     .RefreshOnFileOpen = False
 
     'Ignore le format de la page.
'Moi .WebFormatting = xlWebFormattingNone
 
     'Attend la fin de la requète avant de poursuivre la procédure.
     .BackgroundQuery = True
 
     'Définit une table particulière dans la page.
     .WebSelectionType = xlSpecifiedTables
     .WebTables = "4"   '"15"
 
     'Sauvegarde la requète dans le classeur.
     .SaveData = True
 
     'Ajuste la largeur de la colonne à la taille des données.
     .AdjustColumnWidth = True
 End With
 
 With Application
     On Error Resume Next
 
     'Execute la requète et attend la fin du calcul.
     objQT.Refresh BackgroundQuery:=False
 End With
End Sub

Le source, appelle la Table dans la page WEB que je veux.