Convertir un LienHypertexte en texte
Résolu
H10
-
H10 -
H10 -
A voir également:
- Transformer texte en lien hypertexte excel
- Lien url - Guide
- Excel cellule couleur si condition texte - Guide
- Créer un lien pour partager des photos - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
4 réponses
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
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
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:
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
