sebastianroussel
XLDnaute Nouveau
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
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