QueryTables

[Claudy]

Bonjour et bonne année à tous...
pouvez vous me dire pourquoi la macro Lotto ne fonctionne pas , alors que lotto2 fonctionne bien?

Sub lotto()


destinationURL = "http://www.lotto.be/pages/show.aspx?Culture=fr&pageid=results/latest/lotto&cache=33919f2a"

ActiveSheet.Cells.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:=destinationURL, Destination:=Range("a1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True

End With
End Sub

Sub lotto2()

destinationURL = "URL;http://www.euromillions.be/show.aspx?culture=fr&pageid=results/latests"
ActiveSheet.Cells.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:=destinationURL, Destination:=Range("a1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True

End With
End Sub
Serait ce du à une éventuelle protection sur le site?
Merci d'avance,
Claudy

 

[porcinet82]

Re : QueryTables

Salut,

Bonne année a toi également.
Pour répondre a ta question, peut etre tout simplement car dans l'adresse de ton URL, tu n'as pas URL; au début, ce qui donnerait : destinationURL = "URL;http://www.lotto.be/pages/show.aspx?Culture=fr&pageid=results/latest/lotto&cache=33919f2a"

@+

 

[Claudy]

Re : QueryTables

Merci et bien vu
Ah ces "Copier coller" ....trops faciles à faire...
A+
Claudy