Bonjour à tous !
Voici mon problème :
imaginons que je veuille suivre le prix des disques
durs S-ATA de 500 Go sur le site internet de la
rue Montgallet, ici :
[url]http://www.rue-montgallet.com/prix/75012/comparer/104/Disques-durs/?i1=172&f1=&i2=173&f2[]=1297&i3=174&o3=egal&f3=7452|500&i4=175&f4=&i5=176&f5=&i6=730&f6=&i7=1261&f7=&mq=0&pxmin=0&pxmax=0&od=prix&show=0&nbf=7
[/url].
J'ai crée, sous Excel, la macro suivante à l'aide
de l'assistant :
Code :
- With Worksheets("Test" ).QueryTables.Add(Connection:="URL;" & URL, Destination:=Worksheets("Temp" ).Range("A1" ))
- .Name = "Temp"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .BackgroundQuery = True
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = "9"
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
|
Note : la variable URL contient l'URL citée ci-dessus.
L'import se déroule sans problème, SAUF qu'Excel
m'affiche un petit message :
« Entrer une valeur de paramètre »
que je suis obligé de remplir (au hasard, je met
« 1 ») pour pouvoir poursuivre mon import !
Et le truc dingue, c'est que ça ne me le fait que
pour certaines URL (par exemple pour les disques
de 320 Go y'a pas de soucis).
Comment puis-je faire pour ne plus avoir ce message ?
Merci d'avance !