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

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

Merci michelxld 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 91 internautes ce mois-ci

Meilleure réponse
Messages postés
21
Date d'inscription
mardi 24 janvier 2006
Dernière intervention
4 juin 2009
9 févr. 2006 à 11:21
3
Merci
C'est exactement ce que je recherchais.
Enorme merci pour ton aide.

Bonne journée.

Merci altarez 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 91 internautes ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
9 févr. 2006 à 01:32
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.

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.