Extraire une Url d'un lien dans Excel
Ricoré
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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!
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!
A voir également:
- Extraire lien hypertexte excel
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Liste déroulante excel - Guide
- Extraire une video youtube - Guide
- Extraire le son d'une vidéo - Guide
1 réponse
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
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
