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

Question

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.

michelxld · Accepted Answer

bonjour

ci joint une autre possiblilit&#233; 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&#233;e
michel

jpleroisse · Answer

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&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

altarez · Answer

C'est exactement ce que je recherchais.
Enorme merci pour ton aide.

Bonne journée.

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

3 réponses

Discussions similaires