avec vba récupération plusieurs web

[gbinforme]

bonjour,

Je tente de concaténer plusieurs pages web (4 trimestres) avec le code suivant :

Do Until v_URL(i) = ''
With ActiveSheet.QueryTables.Add(Connection:='URL;' & v_URL(i), _
Destination:=Cells(lig, 1))
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertEntireRows
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
For j = 1 To 10
If Cells(65000, j).End(xlUp).Row > lig Then
lig = Cells(65000, j).End(xlUp).Row
End If
Next j
i = i + 1
Cells(lig, 1).Select
Loop


Cela fonctionne mais chaque connexion décale les résultats précédents vers la droite de 7 colonnes et je ne vois pas quel paramètre je dois changer pour que cela fonctionne.

merci pour les réponses.

Message édité par: gbinforme, à: 18/01/2006 09:13

 

[gbinforme]

bonsoir

c'est résolu, il fallait se positionner sur une ligne vierge :
lig = Cells(65000, j).End(xlUp).Row + 1