Copier adresse d'un lien hypertexte

Résolu
dadacourse Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -  
dadacourse Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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. »
0
dadacourse Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   3
 
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
0