Hyperlink pictures with their number

said -  
JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
comment je peux faire un lien hypertexte automatique des images qui se trouvent dans un folder adresse C:\Desktop\DA-App avec le numéro qui correspond dans le range (A1:a100)
sciemment que chaque image a mémé nom que celui dans les cases
100 images avec 100 case

2 réponses

  1. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
     
    Salut.

    ça n'existe pas, des liens hypertextes automatiques ...
    0
  2. JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   859
     
    Bonjour,

    En B1, tu saisis la formule :
    =LIEN_HYPERTEXTE("C:\Desktop\DA-App\"&A1;A1)

    et tu recopies vers le bas jusqu'en B100.

    Si tu veux que le lien remplaces le contenu de la colonne A, il faut passer par une macro :
    Sub lien_hyp()
        Application.ScreenUpdating = False
        For Each c In [A1:A100]
            ActiveSheet.Hyperlinks.Add Anchor:=c, _
                                    Address:="C:\Desktop\DA-App\" & c.Value, _
                                    TextToDisplay:=c.Text
        Next
        Application.ScreenUpdating = True
    End Sub
    


    cordialement
    0