Copier adresse d'un lien hypertexte

Résolu/Fermé

dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 - 30 déc. 2013 à 10:46
dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 - 1 janv. 2014 à 10:52

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:

Copier un lien hypertexte
Verifier un lien - Guide
Lien url - Guide
Créer un lien pour partager des photos - Guide
Copier une vidéo youtube - Guide
Lien copié - Forum Téléphones & tablettes Android

2 réponses

Réponse 1 / 2

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 1/01/2014 à 02:55

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. »

Réponse 2 / 2

dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 3
1 janv. 2014 à 10:52

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

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

Dessiner avec son clavier et avec des lettres

lien copié

Rajout de lien sur plusieurs pages

renommer un lien internet

Discussions similaires

Newsletters