Discussion :

[gcgp_67]

Bonjour à tous;

Je travaille sur une base de données, et j'aimerai pouvoir ajouter automatiquement un lien vers une image.
Chaque image porte le même nom que l'échantillon.
Pour exemple:
l'échantillon dont le nom commercial est SE15 et de grade 250, a pour image associé SE15_250.jpg

J'étais parti sur quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sheets ("saisie").Select
Range("J3").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-8],""_"",RC[-7])"
Range("J3").Select
Selection.Copy
Sheets("DB").Select
Range("AM3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AM3").Select
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"../pictures/SE15_250.jpg", TextToDisplay:="SE15_250"

comme je débute avec l'utilisation de VBA, je n'arrive pas à automatiser la création du lien.
Le problème vient du chemin d'accès, est-il possible de le modifier automatiquement?

je joint également le fichier

merci d'avance

[mercatog]

Essaies de travailler directement sur la feuille BD
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro11()
Dim LastLig As Long, i As Long
Dim Img As String
 
Application.ScreenUpdating = False
With Sheets("DB")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = 3 To LastLig
        .Range("AM" & i).ClearContents
        Img = .Range("B" & i).Value & "_" & .Range("C" & i).Value
        .Hyperlinks.Add Anchor:=.Range("AM" & i), Address:="../pictures/" & Img & ".jpg", TextToDisplay:=Img
    Next i
End With
End Sub