Voici le problème , je tente de faire une petite macro en excel qui irait récupérer des données sur internet. Mais le problème c'est que je suis bloqué au recherche, je ne sais pas aller plus loin car j'utilise une requete du style :
Dim Film, Film(100), Adresses(101)
Film = InputBox("Quel est le titre a trouver ?")
Adresses(1) = "URL;http://www.mediadis.com/products/search.asp?t=19&kw=" & Film
With ActiveSheet.QueryTables.Add(Connection:= _
Adresses(1), Destination _
:=Range("A1"))
.Name = "search.asp?t=19&kw=minority"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
Ensuite je désire récuperer les divers liens pour les proposer sous forme de UserForm Mais je n'arrive à rien !
je essayé ton code mais je n'arrive pas a le faire marcher.
J'ai une colonne qui contient des liens hypertexte et je veux récuprer l'adresse dans une autre colonne. J'ai créé la fonctionne dans le VBA de ma feuille excel et j'ai écris dans la premiere celluel =AfficherLien(E12)
mais #NOM? qui apprait
25 juil. 2008 à 21:08
J'ai une colonne qui contient des liens hypertexte et je veux récuprer l'adresse dans une autre colonne. J'ai créé la fonctionne dans le VBA de ma feuille excel et j'ai écris dans la premiere celluel =AfficherLien(E12)
mais #NOM? qui apprait
Une idée ?