copier adresse d'un lien hypertexte Résolu

Question

Bonjour,
Copier en B1 l'adresse d'un lien hypertexte en A1, puis
Copier en B2 l'adresse d'un lien hypertexte en A2, puis
Copier en B3 l'adresse d'un lien hypertexte en A3,... etc
J'utlise :
Dim lien As String
    Range("A1").Select
    Do While ActiveCell <> ""
    lien = ActiveCell.Hyperlinks(1).Address
    ActiveCell.Offset(0, 1) = lien
    ActiveCell.Offset(1, 0).Select
    Loop

Cependant, les adresses des liens en A1, A2, A3,...etc, sont différentes
https://www.pmu.fr/turf/index.html#22122013/R1/C1
https://www.pmu.fr/turf/index.html#22122013/R1/C2
https://www.pmu.fr/turf/index.html#22122013/R1/C3

Mais le résultat donne toujours la même adresse incomplète en B1, B2, B3,...etc , soit
https://www.pmu.fr/turf/index.html

Merci de toute votre aide
Jean-Luc

Mytå · Answer

Salut le Forum

Que veux-tu récupérer dans l'url ?

Tu peux tester avec ceci
ActiveCell.Offset(0, 1) = ActiveCell.Hyperlinks(1).Name
ActiveCell.Offset(0, 2) = ActiveCell.Hyperlinks(1).Address
ActiveCell.Offset(0, 3) = ActiveCell.Hyperlinks(1).SubAddress
Mytå 
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »

dadacourse · Answer

Bonjour,

C'est bon, j'ai récupéré l'URL en entier ... un grand merci et une très bonne année 2014 à toi et tous les tiens

Copier adresse d'un lien hypertexte

2 réponses

Votre réponse

Discussions similaires