Bonjour
j'aurais besoin d'aide concernant une erreur qui s'affichent lors d'une requete web
Lorsque je fais fonctionner ma macro la requete doit recuperer des données et me les mettre dans un classeur excel( et par la suite j'exploite ces données)
unerreur d'éxecution 1004
erreur definie par l'application ou l'objet
j'ai regardé sur le forum et on disait que cela venait d'une mauvaise adresse internet parfois . J'ai bien vérifié et rmon adresse et bonne ( lorsque je copie cette adresse sur IE cela me donne la page recherchée )
l'erreur se produit et affiche en jaune la ligne backgroudquery=false
quelqu'un peut il m'aider
Merci d'avance
Voici la requete utilisé
j'aurais besoin d'aide concernant une erreur qui s'affichent lors d'une requete web
Lorsque je fais fonctionner ma macro la requete doit recuperer des données et me les mettre dans un classeur excel( et par la suite j'exploite ces données)
unerreur d'éxecution 1004
erreur definie par l'application ou l'objet
j'ai regardé sur le forum et on disait que cela venait d'une mauvaise adresse internet parfois . J'ai bien vérifié et rmon adresse et bonne ( lorsque je copie cette adresse sur IE cela me donne la page recherchée )
l'erreur se produit et affiche en jaune la ligne backgroudquery=false
quelqu'un peut il m'aider
Merci d'avance
Voici la requete utilisé
Code:
nomlien = Range("E1")
MsgBox (nomlien)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & nomlien & "" _
, Destination:=Range("A20"))
.Name = "req_toute_la_page"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.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
[COLOR="Red"] .Refresh BackgroundQuery:=False[/COLOR]
End With