Bonjour,
Je cherche à récupérer la table numérotée 8 avec Power Query.
URL : https://www.boursorama.com/bourse/opcvm/cours/composition/MP-400876/
J'utilise le code suivant :
Je n'arrive pas à la récupérer. Savez-vus où se situe mon erreur ?
Merci d'avance.
Daniel
Je cherche à récupérer la table numérotée 8 avec Power Query.
URL : https://www.boursorama.com/bourse/opcvm/cours/composition/MP-400876/
J'utilise le code suivant :
VB:
Sub Query()
Dim qtSM As QueryTable, Txt As String, Dat As Date
With ActiveSheet
' .QueryTables(1).Delete
Txt = "URL;" & Cells(3, 2)
Set qtSM = .QueryTables.Add(Connection:=Txt, _
Destination:=.[B4])
End With
With qtSM
' .Name = "Tous"
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.BackgroundQuery = False
.WebTables = "7"
.Refresh
End With
End SubJe n'arrive pas à la récupérer. Savez-vus où se situe mon erreur ?
Merci d'avance.
Daniel
