Bonjour, ou Bonsoir suivant l'heure,
En premier lieu je joins cette image pour situe le contexte, et peut-être aussi justifier du bien-fondé de ma question.
http://www.cjoint.com/c/FCqqgogmqCG
(Je pensais pouvoir le faire directement)
Je charge dans un WebBrowser les fichiers contenus dans divers répertoire et supports de sauvegarde afin de gérer les doublons, grouper... Enfin plein de trucs....
(Sur un test de 899 Fichiers dans 69 Sous-Dossiers pour un total de 1,44 Go => 2,5 secondes)
Tout fonctionne, mais j'ai un énorme souci que je ne parviens pas à résoudre:
Mes dossiers "Photos" contenant des Images de l'ordre de 5 Mo, une bonne partie ne se charge pas.
(Elles n'apparaissent que dans l'image de l'Usf quand je la sélectionne)
Voici mon code html bidouillé pour que VBA le comprenne.
Certes pas très académique et écrit en dur dans mon projet, car je ne pige rien au CSS. (A 65 balais, j'ai la flemme d'apprendre)
Option Compare Text
' BIDON, ORIGINE, IMAGES, REF_BOUTON, DESCRO sont des variables initialisées en amont
' Les éléments ci-dessous sont groupés dans un Module de Classe
Sub CREATION1_DE_LA_PAGE_HTML()
' Création des liens hypertexte
TRONCHE = "<A href='" & BIDON & "'>"
' Création des images
VUE = "<IMG WIDTH=100 HEIGHT=100 SRC='" & ORIGINE & "\" & IMAGES & "'ALT='" _
& ProprietesImages & "N" & "'></IMG></A>"
Print #1, TRONCHE
Print #1, VUE
End Sub
Sub CREATION2_DE_LA_PAGE_HTML()
' Création des liens hypertexte
TRONCHE = "<A href='" & BIDON & "'>"
VUE = "<IMG WIDTH=100 HEIGHT=100 SRC='" _
& SYMBOLE & "'ALT='" & ProprietesImages & "'></IMG></A>"
Print #1, TRONCHE & VUE
End Sub
Sub CREATION_BOUTONS()
TRONCHE = "<A href='" & REF_BOUTON & "'>"
BOUTON_FICHIER = "<td> </td><input type=submit alt=VOIR style=width:100 style=background-color:#c8d6e4 style=font-size=10 value= '" & DESCRO & "'>"
COCHE = "<INPUT type=checkbox style=width:100 style=margin-botton=1 padding-left: 25px style=background-color:#8dd7e0 checked value='" & DESCRO & "'>"
Print #1, TRONCHE & BOUTON_FICHIER
End Sub
Est-il possible, entre ces balises, de faire maigrir les Images?
Je sais le faire en transitant sur une feuille Excel. J'arrive à réduire de 5,58 Mo à 60 Ko,
mais cela demande plus de 2 secondes pour chaque photo => Abandon du projet, si pas de solution!
Je remercie par avance, celle ou celui qui saura m'aiguiller.
Yves
Message édité par iffif le 16-03-2016 à 17:41:45