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

patricktoulon

XLDnaute Barbatruc

• 14 Août 2022

• #2

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 😉

 

Pièces jointes

• Classeur1.xlsm

  273.7 KB · Affichages: 5

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Août 2022

• #3

Bonjour @patricktoulon,

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Août 2022

• #4

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

Cliquez pour agrandir...

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:

 

Dernière édition: 15 Août 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Août 2022

• #5

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Août 2022

• #6

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Août 2022

• #7

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)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Août 2022

• #8

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Août 2022

• #9

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:

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Août 2022

• #10

Dudu2 à dit:

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:

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Août 2022

• #11

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.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Août 2022

• #12

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.

 

Pièces jointes

• RangeToHTML.xlsm

  261 KB · Affichages: 10

Dernière édition: 15 Août 2022

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Août 2022

• #13

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

VB:

 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 😉

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 15 Août 2022

• #14

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 !

 

Dernière édition: 15 Août 2022

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Août 2022

• #15

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 😉

 

Vote positif 0 Vote négatif