Texte sous Images

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:

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