bonjour JeanJean
j'ai sans doute rien compris à ta demande
voici un exemple avec l'enregistreur de macro brut de fonderie, qui fonctionne chez moi :
Sub Test()
With ActiveSheet.QueryTables.Add(Connection:= _
'URL;, Destination:=Range('A1'))
.Name = 'srednie'
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebTables = '12'
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
bonne soiree
MichelXld