Lien Hypertexte adresse courriel

Résolu
Bonjour,

J'Ai environ 2000 noms dans une feuille excel avec des liens hypertexte vers leur adresse courriel.

Je voudrais qu'a la place de leur nom ce soit leur adresse que je vois. Afin de pouvoir copier coller plusieurs adresses a la fois et nom 1 a la fois.

Merci

1 réponse

  1. Contributeur
    bonjour

    Je suppose que ton adresse courriel est dans la cellule où tu vois le nom, alors en mettant cette fonction personnalisée dans un module puis en l'appelant dans une colonne libre avec =affiche_lien(A1) tu devrais avoir tes adresses :

    Public Function affiche_lien(cel As Range)
       On Error Resume Next
       affiche_lien = Mid(cel.Hyperlinks(1).Address, 8)
       If Err.Number <> 0 Then affiche_lien = ""
    End Function
    

    1
    1. Ça ne fonctionne pas :(
      Si je t'enverrai mon fichier serais-tu capable de le faire?
      Merci
      0
    2. Contributeur
      Bonsoir,

      Tu peux nous le mettre sur https://www.cjoint.com/ puis nous mettre le lien généré ici et si ton classeur comporte des éléments personnels non publiables, tu peux le faire en message personnel (clic sur mon pseudo).
      0
    3. OOOOOOOOO oui .... Merci Merci merci !!!!!!
      0