Import de données externes

Marsh Posté le 13-11-2008 à 15:39:32

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 !

Marsh Posté le 13-11-2008 à 15:39:32

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *