Lien hypertexte avec valeur 2 cellule comme nom de fichier

Bonjour à tous,

je dois vous dire que ce sujet déjà existant ( traité par Felix ) ,je l'ai pris copier coller avec les modifications pour mon problème

Je vous explique mon problème :

j'ai 3 colonnes.

La A et B contient une liste de noms.

Dans la C, je souhaite créer un lien ouvrant un dossier ayant pour nom "la valeur de la colonne C sur la même ligne"

exemple :

___A____________________B____________________C

1_A04_____________B03____________lien vers "c:\test\A04\B03

2_A02_____________B05____________lien vers "c:\test\A02\B05

3_A03_____________B06____________lien vers "c:\test\A03\B06

(...)

Le but étant que les liens hypertextes de la colonne C se génèrent "automatiquement",

Voici la solution donnée par Felix

Sub creer_liens()
Columns(2).Hyperlinks.Delete
For Each cel In Range("A1:A" & [A65000].End(xlUp).Row)
    ActiveSheet.Hyperlinks.Add Anchor:=cel.Offset(0, 1), Address:= _
        "C:\Test\" & cel.Value & ".jpg", TextToDisplay:="voir la fiche"
Next cel
End Sub

Merci de votre aide

Bonjour,

Pas sûr d'avoir bien compris mais voici un code qui concatène "C:\test\" avec la valeur en colonne A puis B et crée le lien en colonne C :

Sub creer_liens()

    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Cel As Range
    Dim Chemin As String

    Set Fe = ActiveSheet

    Fe.Columns(3).Hyperlinks.Delete

    With Fe: Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For Each Cel In Plage

        Chemin = "C:\test\" & Cel.Value & "\" & Cel.Offset(, 1).Value
        Cel.Offset(, 2).Value = Chemin
        Fe.Hyperlinks.Add Cel.Offset(0, 2), Chemin & ".jpg", , , "Voir la fiche"

    Next Cel

End Sub

Bonjour Theze

Excellent cela fonctionne très bien

Je voudrais vous demander autre chose si cela ne vous dérange pas

A la place "Voir la fiche" je voudrais garder la même valeur dans la cellule voici le code lorsque je l'ai adapté sur ma feuille

Sub creer_liens()

    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Cel As Range
    Dim Chemin As String

    Set Fe = ActiveSheet

    Fe.Columns(1).Hyperlinks.Delete

    With Fe: Set Plage = .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For Each Cel In Plage

        Chemin = "C:\Users\crocri\Desktop\test\" & Cel.Value & "\" & Cel.Offset(, 1).Value
        Cel.Offset(, 2).Value = Chemin
        Fe.Hyperlinks.Add Cel.Offset(0, 2), Chemin

    Next Cel

End Sub

si cela n'est pas possible je vous remercie encore de votre aide

je l'ai trouvé

Encore merci pour votre aide