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

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 8 Septembre 2022

• #241

Chalut vous 2 🙂
Quel boulot bravo à vous 🙂
Lâché depuis le début, je suis votre fil avec attention.
Est-il possible d'avoir le fichier qui ouvre le Html ?
lionel 🙂

 

Dernière édition: 8 Septembre 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Septembre 2022

• #242

Quand @patricktoulon aura rendu sa version définitive, je publierai une version de RangeToHTMLBase64.xlsm et RangeToHTMLOutlook.xlsm qui aujourd'hui utilisent Publish avec son générateur de HTML.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Septembre 2022

• #243

re
bonjour
visiblement la version 4.3 est dispos déjà me semble t il 😉
bon elle n'a pas la dernière version pour les shapes to png file mais on s'en fou le générateur html ne change pas ;il est générique compatible HTML5 et inférieur puisque c'est du DOM 1/2 et du CSS 2 max
et inline

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Septembre 2022

• #244

visiblement la version 4.3 est dispos déjà me semble t il

Cliquez pour agrandir...

Où c'est ? T'as un lien ?
Je regarderai ça plus tard, je prends le train demain pour rentrer chez moi.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Septembre 2022

• #245

ben normalement le bouton orange
sinon tu va dans l'historique

Range To Html 2022 - Historique

excel-downloads.com

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #246

Bonjour @patricktoulon,
J'ai un petit souci avec ça. Peux-tu regarder ?

 

Pièces jointes

• 11Range to Html by code early bindig 2022 V 4.3 Bug.xlsm

  313.5 KB · Affichages: 1

Dernière édition: 10 Septembre 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #247

J'ai aussi remarqué ça qui n'a peut-être pas d'effet:

HTML:

<!--[if mso]>
<v:rect style="left: 10pt; top: 2pt; width: 226.199pt; height: 153.164pt; position: absolute;" xmlns:v="urn:schemas-microsoft-com:vml" fill="true" stroke="false" ><v:fill  type="frame" src="Picture_2.png"><!--
v:fill-->
</v:fill><!--
v:rect--></v:rect>
<![endif]--><!--[if !mso]><!-- -->
<img style="left: 10pt; top: 2pt; width: 237.509pt; height: 148.986pt; position: absolute;" src="RangeToHTMLPatrick\Picture_2.png">
<!--<![endif]-->

Premier: src="Picture_2.png"
Deuxième: src="RangeToHTMLPatrick\Picture_2.png"

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #248

Et dans ta fonction Function Shapes_On_Range__To_Fich_Png2(Rng As Range, destination$, NomDossier$), le paramètre NomDossier$ n'est pas utilisé.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2022

• #249

re
alors
le dossier n'est pas utilisé car il me sert dans une autre fonction dans un contexte différent

pour le src c'est normal le tag img c'est pour le fichier web et donc les image sont dans un dossier je sais pas porquoi il y a "patrick" mais bon je suppose que tu travail avec un dossier nomé comme tel
pour info ton fichier plante chez moi je sais pas ce que tu a fait dedans

et en effet la couleur n'est pas bonne dans ton fichier la non plus je ne sais pas ce que tu a fait

je teste donc avec le mien

sans image



avec image




je teste donc avec la copie de ta feuille à toi sur mon fichier

et il me replante au meme endroit avec les images




je teste au cas ou sans les images
et hop je me tape la fusion en noir



je reteste donc en fusionnant dans ma feuille ,la cellule ou il y a "X1" comme sur ta feuille
et je teste



LE VERDICT EST CLAIR
conclusion ta feuille est corrompue dans son xml

il est fort possible ( je l'ai déjà vu) que la copie de ma feuille sur ton fichier 2016 corrompe les xml et vice et versa


voila voila 😉

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #250

Je n'ai rien modifié dans ton fichier à part:
- Dans le Sub testOutlookwithShapesFichier() -> Set RnG = ActiveSheet.[c4:i13] au lieu de Set RnG = Feuil1.[c4:i13]
- Ajouté ma feuille qui pose problème dans ton classeur pour la faire traiter par ton bouton

Et le problème persiste:

 

Pièces jointes

• 1662820063933.png

  165.4 KB · Affichages: 7
• 11Range to Html by code early bindig 2022 V 4.3.xlsm

  500.7 KB · Affichages: 1

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #251

En fait c'est un phénomène étrange où il suffit de repeindre la cellule du X1 avec sa couleur pour corriger le problème.

Edit: j'ai regardé toutes les propriétés de la cellule avant et après re-peinture et il n'y a aucune différence. On va laisser tomber ce cas délirant.
Avant:

Après:

 

Dernière édition: 10 Septembre 2022

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2022

• #252

re

En fait c'est un phénomène étrange où il suffit de repeindre la cellule du X1 avec sa couleur pour corriger le problème.

Cliquez pour agrandir...

ça c'est pas une solution c'est une emplâtre sur une jambe de bois

non j'ai trouvé l'erreur !!!!!!!!!!!!!!!!!!!!!!!!!!

SALO!!! SALO!! SALO!!! tu m'a fait courrir

ta shape "fleche" contient " un caractère interdit et ça plantait tout
ta shape s'appelait
Légende:flèche vers la droite 3
tu m'étonne que le xml ou html part en sucette en lecture dans la page web 🤣🤣🤣🤣🤣

pour info
un caractère interdit dans un des attributs des éléments html quels qu'ils soient ...
et bien c'est tout le reste des attributs qui ne sont pas lus (ou à moitié )

bon du coup je t'offre avant tous la version 4.5 (en primeur encore)
qui contient la dernière mouture de la fonction shape to png file
et donc légèrement plus rapide
au moins il n'y a plus d’ambiguïté entre classeurs
ta feuille est bien restituée en page web et outlook

 

Pièces jointes

• 11Range to Html by code early bindig 2022 V 4.5.xlsm

  449.7 KB · Affichages: 3

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #253

Je ne suis pas sûr que tu aies trouvé l'origine du truc. Peut-être mais...Avec ton ancien fichier
Si on retire la flèche et même l'image:

C'est la même punition:


D'ailleurs si on ne place aucun objet dans le Range (l'utilisateur de ta fonction n'est pas sensé savoir à priori si il y en a et combien), ton code plante. Il faudrait que tu protèges ce cas.

 

Pièces jointes

• 11Range to Html by code early bindig 2022 V 4.3.xlsm

  263.1 KB · Affichages: 2

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #254

Ton nouveau fichier 11Range to Html by code early bindig 2022 V 4.5.xlsm

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2022

• #255

re
c'est étonnant ça ne le fait que sur tes fichiers sur le mien 2007 2013 2016 en 32 bits ca match nickel
nonne moi la dernier version enregistrée chez toi qui ne marche pas

 

Vote positif 0 Vote négatif