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

Messages postés
21
Date d'inscription
mardi 24 janvier 2006
Statut
Membre
Dernière intervention
4 juin 2009
- - Dernière réponse : 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.
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
16
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 219 internautes nous ont dit merci ce mois-ci

Messages postés
21
Date d'inscription
mardi 24 janvier 2006
Statut
Membre
Dernière intervention
4 juin 2009
2
3
Merci
C'est exactement ce que je recherchais.
Enorme merci pour ton aide.

Bonne journée.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 219 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
22
1
Merci
Bonsoir,
Essaye ce code.

Sub CopierLien()
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée.