.Refresh BackgroundQuery:=False

[loufred]

Bonjour a tous,

j'ai une macro avec une requete web

j'ai de temps en temps l'erreur 1004 a la ligne :

.Refresh BackgroundQuery:=False

true ou false toujours meme erreur

si quelqu'un a une solution ?

merci de votre aide.

 

[MJ13]

Re : .Refresh BackgroundQuery:=False

Bonjour

Sans doute un problème de connexion ou de mauvaise syntaxe.

 

[loufred]

Re : .Refresh BackgroundQuery:=False

bonjour,

probleme de connexion pense pas,

car a mon boulot ca fait pareil,

par contre je me suis apercu en utilisant une veiux pc,

je peux faire une boucle de 2000 , jamais une erreur !

avec un pc recent , ca va peux etre trop vite , lol ?

 

[MJ13]

Re : .Refresh BackgroundQuery:=False

RE

Bon, mais c'est vrai qu'avec ça.

.[B]Refresh BackgroundQuery:=False[/B]

On ne peux pas faire grand chose.

 

[loufred]

Re : .Refresh BackgroundQuery:=False

voila le code:

Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.leboncoin.fr/li?ca=0_s&q=TRUC&th=0", Destination:=Range( _
"A1"))
.Name = "essai"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = """hl"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

 

[MJ13]

Re : .Refresh BackgroundQuery:=False

Re
Sinon sur XL2007, je n'ai pas de soucis avec ta macro.

Fais-tu pluisieurs appels à cette routine à la suite?

A tester:

Sub Macro2()
'
' Macro2 Macro
'
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.leboncoin.fr/li?ca=0_s&q=TRUC&th=0", Destination:=Range( _
        "$A$1"))
        .Name = "li?ca=0_s&q=TRUC&th=0"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Sinon j'ai trouvé ce lien pour l'erreur 1004 avec IE.
http://support.microsoft.com/kb/19901/fr