[VBA/EXCEL] Recuperer le lien hypertext contenu dans une cellule

Résolu
altarez Messages postés 21 Date d'inscription mardi 24 janvier 2006 Statut Membre Dernière intervention 4 juin 2009 - 9 févr. 2006 à 00:12
altarez Messages postés 21 Date d'inscription mardi 24 janvier 2006 Statut Membre Dernière intervention 4 juin 2009 - 9 févr. 2006 à 11:21
Bonjour à tous,

Y'a t'il possibilité d'afficher le lien contenu dans un cellule?
Concretement :

En important une page HTML dans mon fichier Excel, la celulle "A1" contient un texte "Monsiteinternet" par exemple qui est un lien hypertext.
En déplaçant le curseur sur cette cellule s'affiche alors le lien internet. http:\\www.monsiteinternet\siteabc.html

Je souhaiterai récurer ce lien et l'afficher dans la cellule à coté.
Pensez vous que c'est possible ?
Merci a tous de vos réponses et bonne soirée.

3 réponses

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 32
9 févr. 2006 à 05:38
bonjour

ci joint une autre possiblilité pour extraire le lien hypertexte de la cellule A1

MsgBox Range("A1")..Hyperlinks(1).Address

pour extraire les liens de la colonne A

Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub

bonne journée
michel
6
Rejoignez-nous