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

altarez 21 Messages postés mardi 24 janvier 2006Date d'inscription 4 juin 2009 Dernière intervention - 9 févr. 2006 à 00:12 - Dernière réponse : altarez 21 Messages postés mardi 24 janvier 2006Date d'inscription 4 juin 2009 Dernière intervention
- 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

michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 9 févr. 2006 à 05:38
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
altarez 21 Messages postés mardi 24 janvier 2006Date d'inscription 4 juin 2009 Dernière intervention - 9 févr. 2006 à 11:21
+3
Utile
C'est exactement ce que je recherchais.
Enorme merci pour ton aide.

Bonne journée.
Cette réponse vous a-t-elle aidé ?  
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 9 févr. 2006 à 01:32
0
Utile
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.