Merci pour votre réponse. J'ai un peu de mal à tout comprendre.
L'instruction compléte est:
AdresseURL = ActiveCell.Hyperlinks(1).Address
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & AdresseURL, Destination:=Range("O1"))
.Name = "cours.phtml?symbole=1rPLTA"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Elle récupère la totalité de la page web et la met dans les cases O1 et suivantes (environn 450 lignes)
Moi j'ai besoion de la data qui se trouve en O100.
D'autre part qu'est ce que je mets sous "Nom-de_ma_query"
Merci