Extraire une Url d'un lien dans Excel Fermé

Question

Bonjour,

Je cherche à extraire une url d'un lien hypertexte dans Excel 2007.

Mes liens sont contenus dans la colonne A, avec les noms en bleu souligné, mais ce sont des noms propres, et pas des adresses.

Je voudrais extraire l'adresse visée par ces liens (format https://www.quelquechose.com/ par exemple), et la stocker dans la colonne d'à coté.

Comme c'est un tableau à 8200 lignes, je ne voudrais pas aller chercher le lien en faisant "modifier le lien hypertexte, copier-coller, etc.", mais plutot avoir une formule ou une macro pour automatiser ceci.

Un grand merci pour votre aide!

pijaku · Answer

Salut,
Par macro, comme ceci:
Je suppose que ton premier lien est en A2 (2ème ligne de la macro) et que tu n'as pas de cellule vide en colonne A.

Dim lien As String
Range("A2").Select
Do While ActiveCell <> ""
lien = ActiveCell.Hyperlinks(1).Address
ActiveCell.Offset(0, 1) = lien
ActiveCell.Offset(1, 0).Select
Loop

Extraire une Url d'un lien dans Excel

1 réponse

Discussions similaires