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 !).

 

[Usine à gaz]

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

 

[Dudu2]

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.

 

[patricktoulon]

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

 

[Dudu2]

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

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

 

[patricktoulon]

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

Range To Html 2022 - Historique

excel-downloads.com

 

[Dudu2]

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

 

[Dudu2]

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

<!--[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"

 

[Dudu2]

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

 

[patricktoulon]

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

 

[Dudu2]

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:

 

[Dudu2]

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:

 

[patricktoulon]

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.

ç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

 

[Dudu2]

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.

 

[Dudu2]

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

 

[patricktoulon]

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