Extraire une Url d'un lien dans Excel
Fermé
Ricoré
-
18 août 2009 à 14:05
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 18 août 2009 à 14:41
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 18 août 2009 à 14:41
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
- Extraire une video youtube - Guide
- Lien url - Guide
- Liste déroulante excel - Guide
- Créer un lien pour partager des photos - Guide
- Extraire le son d'une vidéo - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 757
18 août 2009 à 14:41
18 août 2009 à 14:41
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
