Querry: Serveur ou proxi internet introuvable

[Claudy]

Bonjour,
La macro ci dessous a bien fonctionné pendant des mois, voire des années.
Et aujourd'hui, je reçois un message d'erreur" Erreur d'exécution 1004, Impossible d'ouvrir HTTP......, Serveur ou proxi Internet introuvable.

Pouvez vous m'aider?
Merci d'avance,
Claudy
PS: bonne fête à mes compatriotes belges.


Sub Test_Querry_test()

'Macro écrite par Claudy


Feuil4.Visible = True
Sheets("Querry").Activate

Cells.Select
Selection.ClearContents
'Selection.QueryTable.Delete
'
With ActiveSheet.QueryTables.Add(Connection:="URL;http://http://www.rtbf.be/services/lotto" _
, Destination:=Range("A1"))
.Name = "lastresults_1"
.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

Feuil4.Visible = False

End Sub

 

[Guest]

Bonjour,

Cette construction de Query fonctionne chez moi pour peu qu'on enlève un des 2 http://

A+

 

[Claudy]

Re : Re: Querry: Serveur ou proxi internet introuvable

Evidemment ça...bien vu et merci,
Claudy