Récupération du lien hypertexte en VBA Excell
Epiphane
-
patrice -
patrice -
Boujour, je vais essayer d'être clair.
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 !
Please Help Me
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 !
Please Help Me
Configuration: Excel 2000
1 réponse
-
Hehe, je viens de touver enfin je l'espére grace à une fonction que je peux récupere ensuite :
Function AfficherLien(Cellule)
AfficherLien = Cellule.Hyperlinks(1).Address
End Function-
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
Une idée ?
-
