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]

bonjour @Dudu2

1°
ne préfère tu pas le résultat de ma methode ?

2 emporter les images impliquerais la création d'un dossier de fichier comme tout page web en bon et due forme

car l'enregistrement en page web(publier) de excel en fichier unique ne refait pas tout comme dans excel

cela dit selon l'utilisation de tes pages web apres , je peux te montrer comment on met une image dans une page web en base 64(pas besoins de fichier ;j'ai mon convertisseur vba
si tu cherche dans DVP tu le trouvera dans les ressources vba sinon je t'en ferais un exemple
ci joint ton classeur avec ma méthode range to html

1. accepte les fusion
2. reproduit les couleur (sauf celle des tableau structurés)
3. reproduit le texte(avec son format)
4. reproduit l'alignement du texte
5. reproduit au plus pres les bordures et leur formats

tu n'a pas cela avec publier 😉

 

[Dudu2]

Bonjour @patricktoulon,

En cliquant ton bouton j'ai ce problème...

 

[Dudu2]

Lorsque tu dis...

1. accepte les fusion
2. reproduit les couleur (sauf celle des tableau structurés)
3. reproduit le texte(avec son format)
4. reproduit l'alignement du texte
5. reproduit au plus pres les bordures et leur formats

La version récupérée de Ron de Bruin fait ça aussi, sauf pour les bordures dont le style (épaisseur, double) n'est pas reproduit. Mais c'est assez mineur.
Range:

HTML:

Par contre pour un tableau structuré qui couvre la totalité du Range, le code de Ron de Bruin fonctionne.
Range:

HTML:

 

[Dudu2]

Quant à la récupération du Range avec ses objets, il y a une seule publication que je n'ai pas réussi à faire fonctionner. https://stackoverflow.com/questions...nvert-range-with-pictures-and-buttons-to-html
Je ne sais pas du tout si elle tient la route ou pas.

 

[patricktoulon]

re
peut etre a tu les librairie html (basées sur IE) manquantes
et donc même create("htmlfile")(late binding) ne fonctionne pas

je te montre ce que cela fait

 

[patricktoulon]

re
cette capture fixe est plus parlante
en ce moment je travaill avec le pc portable le fixe a explosé
tu n'a pas ce résultat avec" publier"

est ce que tu peux créer un doc html en mémoire oui ou non

set doc=create("htmlfile")
ou
dim doc as object
set doc = new htmldocument (avec les librairies cochées bien sur)

 

[patricktoulon]

demonstration avec des fusions et différent fonts et couleur et bordures

je suis curieux de savoir si dans vos version recentes d'excel on vous a supprimé ces librairies

 

[Dudu2]

Voilà ce que j'ai avec la méthode Ron de Bruin (Publier).
Ça me semble assez semblable à ta méthode, non ?
Envoie ton fichier fusions / fonts / couleurs que j'essaie...

Et oui je peux faire:

Sub b()
    Dim Doc As Object
    Set Doc = CreateObject("htmlfile")
End Sub

 

[patricktoulon]

Voilà ce que j'ai avec la méthode Ron de Bruin (Publier).
Ça me semble assez semblable à ta méthode, non ?
Envoie ton fichier fusions / fonts / couleurs que j'essaie...
Regarde la pièce jointe 1147350
Et oui je peux faire:

Sub b()
    Dim Doc As Object
    Set Doc = CreateObject("htmlfile")
End Sub

alors je ne vois pas ou est le probleme
peut etre un conflit avec un de tes code ayant un nom de variable identique ou je ne sais pas
chez moi cette version fonctionne sur 2007/2013/2016 en 32 bits
c'est pour quoi que tu a besoins de convertir cette plage en html ???
si c'est pour outlook il y a un autre moyen

 

[Dudu2]

En effet, je vise Outlook pour améliorer une ressource que je vais publier.
En fait je l'ai publiée avec un Bug (dû à des Rename non vérifiés !) donc je l'ai supprimée.
Idéalement j'aurais aimé récupérer les objets du Range avec.

 

[Dudu2]

Yes !
En modifiant le code de Ron de Bruin, j'arrive à:
1 - Exporter les tableaux structurés avec leur format natif
2 - Exporter les objets du Range (boutons, images, ...)

A ce stade, la conversion ne permet pas une utilisation Outllook car les fichiers images sont externes et référencés dans le code HTML généré en tant que imagedata src= nom du fichier temporaire. Je vais tenter de trouver un moyen pour les rendre utilisables par Outlook.

 

[patricktoulon]

ATTENTION!!!!!
tout le monde n'a pas ceci d'activé

 Application.CopyObjectsWithCells = True

sans cela IncludeObjects ou pas dans le sourcetype , ca ne fonctionne pas
et tout le monde ne l'a pas forcement activé d'origine 😉

 

[Dudu2]

Merci @patricktoulon pour cette info qui d'ailleurs permet une simplification du code.
Le fichier ci-dessus a été mis à jour en conséquence.

Edit: Je pense que ça mérite même une publication en Ressources !

 

[patricktoulon]

test avec outlook application avant de crier victoire
il te faudra changer les chemin des images dans le code html
actuellement dans le dossier automatiquement créé pour les chemin des addrelativepart du mail
de plus outlook application ou OWA et meme d'autre apps(mail) n 'acceptent plus les balises style en entete car il créé le sien
c'est pour cela que je t'ai proposé ma méthode qui a le style "inline"

affaire a suivre 😉