XL 2016 VBA - Range to HTML incluant les objets de la feuille (boutons, images, ...)

[Dudu2]

Bonjour,

Je n'ai rien trouvé qui fonctionne pour convertir un Range en HTML qui inclurait tout ce qu'il y a dans le Range en question.

J'ai bien récupéré la fonction de Ron de Bruin omni-présente sur le Web qui fonctionne uniquement pour les valeurs de cellules et leurs formats, sauf pour les tableaux structurés qui ne sont pas en exclusivité dans le Range qui perdent alors leurs formats (qui n'en sont pas vraiment !).

 

[patricktoulon]

re
cherche avec mon pseudo je l'ai déjà donné pour outlook et même CDO
comme je n'ai pas ma bibliotheque(because pc fixe explosé) je ne l'ai pas sous la main

mais on devrais pouvoir le retrouver

si joint ma base par userform
pour les shapes c'est pas au point je n'ai pas la transparence
mais sinon le reste fonctionne proprement

 

[Dudu2]

Ok, maintenant je dois pouvoir crier victoire ! SAUF pour Outlook !
Malgré tes réserves sur le Base64 dont il faudrait préciser sur quels environnements ce codage n'est pas reconnu.

Les images sont maintenant Inline dans le HTML résultant.
Je n'ai eu qu'à traiter les Tags <img.
Je n'ai pas traité les Tags <v:imagedata dont je ne connais pas l'utilité et qui font toujours référence aux fichiers disparus sans que cela n'impacte l'affichage Firefox. A vérifier sur Outlook.
De même pour le Tag <link.

Edit: Victoire certes, mais pas pour Outlook qui ne reconnait pas la représentation des images Inline en Base64, contrairement à Thunderbird et bien sûr contrairement à tous les navigateurs Web ! Quelle daube !
Il va falloir coder une option spéciale pour les mails Outlook en utilisant les Attachments et les CID Outlook.

 

[patricktoulon]

résultat chez moi de ton dernier fichier tel quel

 

[Dudu2]

Ok, j'ai remplacé le Wait de 3 secondes par un MsgBox pour que le Browser ait tout son temps pour afficher le fichier.

 

[Usine à gaz]

Ok, j'ai remplacé le Wait de 3 secondes par un MsgBox pour que le Browser ait tout son temps pour afficher le fichier.

Bonjour à vous 2
Dudu : chez moi ça marche

Yoyo

 

[Dudu2]

Bonjour @Usine à gaz,

Bizarre ton image.
J'ai essayé avec tous mes navigateurs (Firefox, Chrome, Waterfox, IE, Edge) et partout j'ai ça:

qui est conforme à l'image du Range.
T'utilises quoi comme navigateur ??

 

[patricktoulon]

re
et moi j'ai un problème avec ta fonction base64
selon le poids de l'image je n'ai qu'une partie
je me suis fait un petit userform de contrôle pour ça
je joint le contrôleur et l'image que j'ai utilisé
démonstration

 

[Usine à gaz]

Bonjour @Usine à gaz,

Bizarre ton image.
J'ai essayé avec tous mes navigateurs (Firefox, Chrome, Waterfox, IE, Edge) et partout j'ai ça:
Regarde la pièce jointe 1147428
qui est conforme à l'image du Range.
T'utilises quoi comme navigateur ??

LOL oui : j'ai déplacé le bouton 2 et la flèche bleue. C'était pour voir command ça se reproduit
J'ai utilisé Chrome.
lionel

 

[Dudu2]

Pour info Thunderbird reçoit bien le mail envoyé par Outlook et le présente bien (j'ai changé la Shape pour voir la transparence)

Par contre Outlook n'arrive pas à traiter le HTML avec les images Inline en Base64. Évidemment !

 

[Dudu2]

@patricktoulon,
Je vois pas trop le problème que tu signales avec les pingouins;

 

[patricktoulon]

je te l'avais dis outlook c'est mort

ben chez moi j'ai qu'une partie de l'image
peut être une histoire de buffer vu que je suis sur mon petit portable
tu a testé mon fichier ???

 

[patricktoulon]

Ps: j'ai enfin réussi a sauver ma bibliothèque de truc perso vba et autre
j'ai donc pu retrouver mon converter(userform original) avec wysiwyg
je suis le plus heureux du monde 10 années de travail perdues
et retrouvées grâce a une machine que l'on m'a prété pour sauver ce qui peut etre sauver d'un disque cramé

 

[Dudu2]

je te l'avais dis outlook c'est mort

Ouais, ben Outlook il fait suer pour parler poliment.

tu a testé mon fichier ???

Je sais pas trop quoi tester dans ton fichier.
Faut que je change toutes les références d'image. Ce serait mieux si tu la plaçais en constante.
Je sais pas si ça c'est correct:

.src = "data:image/" & "jpeg" & ";base64," & Base64EncodeFile(ThisWorkbook.Path & "\Penguins.jpg")

"jpeg" -> "jpg" et ";base64" -> ",base64" ?

10 années de travail perdues
et retrouvées

Je comprends ton soulagement !

 

[patricktoulon]

non le code tu change rien il suffit que l'image soit dans le meme dossier que le classeur (j'ai fait simple )

"jpeg" ou jpg" = blanc bonnet/bonnet blanc"

dis moi juste si l'image est entière chez toi

 

[Dudu2]

Qu'est-ce que je dois faire pour tester ton code ?