Creer et coller lien Hypertext dans une feuille

Bonjour,

Je fais appel à votre aide,
Je tente de créer mon lien Hypertext et le coller dans la feuille. Ca semble simple, mais je n'y arrive pas :-(

Le chemin est dans la feuille Parametre en B2

Le code produit est écrit dans mon Userform (UF_Deco) et dans le Textbox (TB_CodeProduit)

je souhaite créer mon lien hypertext et mettre le lien dans la colonne 4

merci d'avance pour toute aide.

Private Sub BTN_Ajouter_Click()
    Dim ligne As Integer
    If MsgBox("Confirmez-vous l'ajout du nouvel item?", vbYesNo, "confirmé") = vbYes Then
        Worksheets("INVENTAIRE").Activate
        ligne = Sheets("INVENTAIRE").Range("A500000").End(xlUp).Row + 1

        Cells(ligne, 4) = Hyperlink(Sheets("Parametre").Range("B2") & Me.TB_CodeProduit.Value & ".jpg", "Photo")
        Cells(ligne, 5) = UF_DecoNoel.TB_CodeProduit.Value

    Else
    End If
        UF_DecoNoel.TB_CodeProduit.Value = ""
        Unload Me
End Sub

Bonjour,

Un code comme ce dernier serait plus adapté :

Private Sub BTN_Ajouter_Click()
Dim ligne%
If MsgBox("Confirmez-vous l'ajout du nouvel item?", vbYesNo, "confirmé") = vbYes Then
    Worksheets("INVENTAIRE").Activate
    ligne = Sheets("INVENTAIRE").Range("A500000").End(xlUp).Row + 1
    Cells(ligne, 4).Hyperlinks.Add Cells(ligne, 4), Worksheets("Parametre").Range("B2") & Me.TB_CodeProduit.Value & ".jpg"
    Cells(ligne, 5) = UF_DecoNoel.TB_CodeProduit.Value
    Unload Me
End If
End Sub

Cependant, il serait bon que vous joigniez un fichier à votre demande car avec juste du code il est compliqué de comprendre comment est structuré votre fichier/USF.

Cdlt,

Un grand merci, j’essaie ça à l'instant.

Re bonjour Ergotamine,

Ça semble fonctionner.... comment faire afficher le Photo comme lien hypertext ?

Cells(ligne, 4) = Hyperlink(Sheets("Parametre")....     & ".jpg", "Photo")

merci encore pour ton temps et ton aide.

Bonjour,

Si vous parlez du "texte" photo dans une cellule alors :

Private Sub BTN_Ajouter_Click()
Dim ligne%
If MsgBox("Confirmez-vous l'ajout du nouvel item?", vbYesNo, "confirmé") = vbYes Then
    Worksheets("INVENTAIRE").Activate
    ligne = Sheets("INVENTAIRE").Range("A500000").End(xlUp).Row + 1
    Cells(ligne, 4).Hyperlinks.Add Cells(ligne, 4), Worksheets("Parametre").Range("B2") & Me.TB_CodeProduit.Value & ".jpg", , , "Photo"
    Cells(ligne, 5) = UF_DecoNoel.TB_CodeProduit.Value
    Unload Me
End If
End Sub

Cdlt,

Merci beaucoup Ergotamine, c'est ce que j'avais besoin,
merci énormément