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 !).
La solution de @Dudu2 dans le fichier joint pour chacune des situations:
- Créer un fichier .htm et son répertoire associé de fichiers images
- Créer un fichier .htm unique contenant les images codées en Base64
- Créer un mail Outlook
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
accepte les fusion
reproduit les couleur (sauf celle des tableau structurés)
reproduit le texte(avec son format)
reproduit l'alignement du texte
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:
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
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
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
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.
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.
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"