Bonjour le forum
désirant faire un afficahge de pochette sur un formulaire Access , j' ai trouvé en exemple un formulaire avec ce code ci dessous.
ce formuliare a un controle Webbrowser
le champ Photo de la table a des donnée de ce style
https://images-na.ssl-images-amazon....82,268_AL_.jpg
igne de commande suivante qui remonte les photos
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  s = s & "<img src ='" & .Fields("photo") & "'><div>"
Ma question est la suivante
Comment transformer cette ligne de commande pour lui dire d' aller chercher les phtos sur le disque avec comme chemin
d:\toto\tata\pochette\toto.jpg sachant que ce chemin est stocke dans une table

le code complet

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub genrpt()
    Dim wb As WebBrowser
    Set wb = WebBrowser0.Object
    With wb.Document.body.Style
        .backgroundcolor = "black"
        .Color = "grey"
        .FontSize = "10pt"
        .FontWeight = "bold"
        .fontfamily = "arial"
    End With
    With CurrentDb.OpenRecordset("select * from sheet1 order by [" & Combo1 & "]")
        Do Until .EOF
            s = s & "<span style='width:150px;vertical-align:top;margin:2px;'>"
            s = s & "<img src ='" & .Fields("photo") & "'><div>"
            s = s & .Fields("Name of movie") & "&nbsp;"
            s = s & .Fields("year") & "</div>"
            s = s & "<div style='font-size:20pt;'>"
            s = s & "<span style='color:yellow;'>" & String(.Fields("rate_t"), "*") & "</span>"
            s = s & "<span style='color:grey;'>" & String(5 - .Fields("rate_t"), "*") & "</span>"
            s = s & "</div>"
            s = s & "</span>"
            .MoveNext
        Loop
    End With
    wb.Document.body.innerhtml = s
End Sub
Merci d' avance pour votre aide

Aladin