Bonsoir à tous, ou Bonjour suivant l'heure

J'ai essayé en vain plusieurs formes s'adaptant en dimensions "Width"

L'ajout d'une image vierge en dessous marche, mais il s'avère indispensable pour moi d'avoir écrit le nom de la photo concernée.

L'idéal serait un truc du genre "Control Label de Vba" que je ne parviens pas à faire.

Mon code n'est pas du tout académique, et en l'occurrence, je me suis fait houspiller avec des gros mots comme "CSS" que je ne connais même pas! (In facto => Pas de réponse...)

Si vous ouvrez la pièce jointe (Vidée des autres multiples actions) vous verrez que cela fonctionne bien malgré tout.

Je vous remercie par avance pour votre aide, car je suis dans la panade.

Le code utilisé me permettant d'inclure l'image existante ou une représentative du Fichier:
Ne riez pas....

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
27
28
29
30
Option Compare Text
Sub CREATION1_DE_LA_PAGE_HTML()
' Création des liens hypertexte
TRONCHE = "<A href='" & ORIGINE & "\" & IMAGES & "'>"
' Création des images
VUE = "<IMG WIDTH=100 HEIGHT=100 SRC='" & ORIGINE & "\" & IMAGES & "'ALT='" _
& ProprietesImages & "N" & "'></IMG></A>"
 Print #1, TRONCHE
 Print #1, VUE
' Print #1, POSTE
End Sub
Sub CREATION2_DE_LA_PAGE_HTML()
' Création des liens hypertexte
TRONCHE = "<A href='" & ORIGINE & "\" & IMAGES & "'>"
 ' Création des images
VUE = "<IMG WIDTH=100 HEIGHT=100 SRC='" _
& SYMBOLE & "'ALT='" & ProprietesImages & "'></IMG></A>"
 Print #1, TRONCHE
 Print #1, VUE
End Sub
Sub CREATION3_DE_LA_PAGE_HTML()
    SYMBOLE = ThisWorkbook.Path & "\SYMBOLES\" & "INPUT.gif"
' Création des liens hypertexte
TRONCHE = "<A href='" & ORIGINE & "\" & IMAGES & "'>"
 ' Création des images
VUE = "<IMG WIDTH=100 HEIGHT=15 SRC='" _
& SYMBOLE & "'ALT='" & ProprietesImages & "'></IMG></A>"
 Print #1, TRONCHE
 Print #1, VUE
End Sub
Yves

p.j. (A mettre dans un même répertoire)
http://www.cjoint.com/c/FCdrDVg2P8p