Menu

Convertir un LienHypertexte en texte [Résolu]

H10 - 4 oct. 2017 à 17:59 - Dernière réponse :  H10
- 5 oct. 2017 à 14:57
Bonjour,

Je souhaite convertir un lien hypertexte en texte, dans une cellule excel.

exemple d'un lien hyper texte : file://C:\FY 17\CQ-125.doc

les caractères de ce lien, je voudrai les retrouver dans une cellule excel sous forme de texte .........à "triturer" par la suite.

Merci
Afficher la suite 

4 réponses

Répondre au sujet
DjiDji59430 1922 Messages postés samedi 19 avril 2008Date d'inscription 24 avril 2018 Dernière intervention - 4 oct. 2017 à 18:08
0
Utile
Bonjour,

Tu fais copier/coller valeur

Cdlmnt
Commenter la réponse de DjiDji59430
0
Utile
Merci DjiDji pour la réponse mais il me semble que la solution est moins simple. Je repose le problème.
J'ai une cellule excel dans laquelle il y a un texte. (ex : CQ-125). Il y a aussi un lien Hypertexte pour cette cellule.
Lorsque je pointe sur cette cellule un commentaire s'affiche avec un chemin d'accès et des consignes.
Ce que je souhaite, c'est récupérer le texte qui compose le lien (donc le texte du chemin d'accès; ex : file:///C:\NCF\UN\Gestion\CQ-125.doc).
Enfin ce texte je voudrai le copier dans une autre cellule ....sous format texte !
J'espère avoir été plus précis.
Merci pour vos retour
Commenter la réponse de H10
cs_Le Pivert 5067 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 23 avril 2018 Dernière intervention - 5 oct. 2017 à 11:11
0
Utile
Bonjour,

en vba faire Alt F11 pour accéder à l’éditeur. Sélectionner à gauche la feuille concernée et mettre ce code qui se déclenchera avec un clic droit sur le lien:

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim lien As String
If Range(Target.Address).Hyperlinks.Count > 0 Then
    lien = Range(Target.Address).Hyperlinks(1).Address
    ActiveCell.Offset(columnOffset:=3).Value = lien '3 colonne plus loin a adapter
End If
End Sub


Commenter la réponse de cs_Le Pivert
0
Utile
Merci Le Pivert

Voici une autre solution

Sub extractHL()

Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next

End Sub

Bonne fin de jounée
Commenter la réponse de H10