verification de ma web query svp

[sebastianroussel]

Bonjour,
Pourriez vous tester cette web query pour me dire ce qui ne va pas
Merci


Sub Macro1()
'Create_Web_Query()
WithActiveSheet.QueryTables.Add(Connection:='Ce lien n'existe plus, Destination:=Range('A1'))
.Name = 'eurostat'
.PostText ('parameters')
.Refresh BackgroundQuery:=False
Selection = AllTables
Formatting = None
PreFormattedTextToColumns = True
ConsecutiveDelimitersAsOne = True
SingleBlockTextImport = False
DisableDateRecognition = False
End With
End Sub

 

[Mytå]

Salut Sébastien Roussel et le Forum

Déjà le lien n'est pas fonctionnel

Ce lien n'existe plus 6,39140985&_dad=portal&_schema=PORTAL&screen=detailref&language=fr&product=STRIND_ENVIRO&root=STRIND _ENVIRO/enviro/en010

Il nous amène sur une page avec une erreur.

Myta

Message édité par: Mytå, à: 01/04/2006 16:09