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

patricktoulon

XLDnaute Barbatruc

• 16 Août 2022

• #31

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

 

Pièces jointes

• RangeToHTmlWithWebbrowser.xlsm

  284.7 KB · Affichages: 0

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Août 2022

• #32

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.

 

Pièces jointes

• RangeToHTML.xlsm

  275.6 KB · Affichages: 1

Dernière édition: 18 Août 2022

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Août 2022

• #33

résultat chez moi de ton dernier fichier tel quel

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Août 2022

• #34

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 16 Août 2022

• #35

Dudu2 à dit:

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

Cliquez pour agrandir...

Bonjour à vous 2
Dudu : chez moi ça marche

Yoyo

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Août 2022

• #36

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 ??

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Août 2022

• #37

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

 

Pièces jointes

• Penguins.jpg

  39.8 KB · Affichages: 15
• test base64.xlsm

  24.7 KB · Affichages: 3

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 16 Août 2022

• #38

Dudu2 à dit:

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 ??

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Août 2022

• #39

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 !

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Août 2022

• #40

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Août 2022

• #41

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 ???

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Août 2022

• #42

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é

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Août 2022

• #43

je te l'avais dis outlook c'est mort

Cliquez pour agrandir...

Ouais, ben Outlook il fait suer pour parler poliment.

tu a testé mon fichier ???

Cliquez pour agrandir...

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:

VB:

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

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

10 années de travail perdues
et retrouvées

Cliquez pour agrandir...

Je comprends ton soulagement !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Août 2022

• #44

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 16 Août 2022

• #45

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

 

Vote positif 0 Vote négatif