I think I found it, Younes. I've never tried automating a QueryTable before, so I had to go
look it up, but the documentation says your string has to start with "URL;". I thought maybe there was something wrong with the URL itself, you'll remember, so I made a copy of your program and plugged in a different URL that I knew was valid:
Code:
Sub Test()
URL = "http://www.onelook.com/?w=frick&ls=a"
With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Cells(1, 1))
.Name = ""
.FieldNames = True
.RowNumbers = False
' blah, blah, blah
End With
End Sub
...and it failed the same way yours did. But when I looked up more about that Connection thingy, I changed the program in just one minor way and it didn't object any more:
Code:
Sub Test()
URL = "URL;http://www.onelook.com/?w=frick&ls=a"
With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Cells(1, 1))
.Name = ""
.FieldNames = True
.RowNumbers = False
' blah, blah, blah
End With
End Sub
Mind you, the rest of your program may fail for other reasons. But at least this'll get you to the next step.
Sorry for the delay; I should have gotten to it sooner.