Editer lien hypertexte d'images

Résolu
Onepat1 -  
bonjour,
j'ai une liste contenant des images dans des cellules et celles-ci ont un lien hypertexte vers des adresses de messagerie différentes.
j'aimerais afficher/éditer le lien de chacune en clair dans une autre cellule.
j'avoue ne pas trouver l'astuce.
merci

6 réponses

  2.  Onepat1 Auteur
    Merci pour cette réponse rapide mais cela fonctionne pas avec des images.
    ou alors je n'ai pas ciblé la bonne cellule:
    pourtant mes images sont bien dans la colonne 1

    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
    0
    1. cs_Le Pivert Contributeur
      Pour les images c'est différent.

      Essaie ceci: 

      Option Explicit
Sub LireTexteShapes()
Dim i As Integer
Dim s As Shape
i = 1 'adapter la 1ère ligne
  For Each s In ActiveSheet.Shapes 'parcourt toutes les shapes(image)
     Range("B" & i).Value = s.Hyperlink.SubAddress
  i = i + 1
  Next s
End Sub


      @+ Le Pivert

      0
      1. Onepat1 Auteur
        Je ne connais pas du tout cette fonction shape !
        il me pointe une erreur sur cette ligne:
        Range("B" & i).Value = s.Hyperlink.SubAddress
        0
        1. cs_Le Pivert Contributeur
          essaie cela 

          Option Explicit
Sub Test()
    Dim shp As Shape, c As Range
    'On Error Resume Next
    With ActiveSheet
        For Each shp In .Shapes
            Set c = shp.BottomRightCell
            c.Offset(0, 0) = shp.Hyperlink.SubAddress
        Next shp
    End With
End Sub


          pour en savoir plus sur les shapes

          http://boisgontierjacques.free.fr/pages_site/lesimages.htm#CreationShape

          @+
          0
      3. Onepat1 Auteur
        merci pour le lien !
        la petite macro ne fonctionne pas.
        je vais essayer quelques lignes avec les shapes...
        0
        1. cs_Le Pivert Contributeur
          Pour des liens sur le web ou adresse sur le pc mettre ceci 

          Sub Test()
    Dim shp As Shape, c As Range
    'On Error Resume Next
    With ActiveSheet
        For Each shp In .Shapes
            Set c = shp.BottomRightCell
            c.Offset(0, 0) = shp.Hyperlink.Address
        Next shp
    End With
End Sub
          0
      4. Onepat1 Auteur
        Merci
        la formule fonctionne parfaitement. !
        le codage est un peu au dessus de mon niveau mais le lien sur les shapes est vraiment intéressant.
        0

        Discussions similaires

        Copier un lien instagram
        alaurore

        7 réponses
        Retrouver liens copiés sur le téléphone
        SAMA

        2 réponses
        renommer un lien internet
        brian johnson

        1 réponse
        comment changer le nom d'un lien?
        nina20

        17 réponses
        copie d'un lien dans le navigateur internet
        Ulysse Orseau

        4 réponses