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

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #256

Je l'ai jointe au post #254. C'est ta version 4.3 car la 4.5 plante comme indiqué ci-dessus.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2022

• #257

ok j'ai trouver une divergence dans le xml de la feuille
il doit y avoir une différence de gestion des fusions dans ta version d'excel

change ça et ca marche sur la 4.3

VB:

 On Error Resume Next 
 le backgraound (Attention!!! 'displayformat(version sup à 2007)
 If cel.Cells(1).Interior.Color <> vbWhite Then .BackgroundColor = coul_XL_to_coul_HTMLX(cel.Cells(1).Interior.Color)
 If cel.Cells(1).DisplayFormat.Interior.Color <> vbWhite Then .BackgroundColor = coul_XL_to_coul_HTMLX(cel.Cells(1).DisplayFormat.Interior.Color)
 On Error GoTo 0

ouvre le fichier 4.5 fait quelque chose dedans met quelques chose dans une cellules et enregistre le et redonne le moi

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #258

Ta modif de 4.3 fonctionne.

Ceci dit, il manque la bordure gauche de la cellule X1



La cellule X1 a les bordures définies en Left / Top / Bottom (PAS en Right)
La cellule à droite de X1 a la bordure définir en Left.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #259

Version 4.5 avec une celllule modifiée.

 

Pièces jointes

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

  416.4 KB · Affichages: 4

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2022

• #260

ben pour la 4.3 ca doit etre encore le meme probleme que pour l'interior c'est la gestion des fusions qui n'est pas tout a fait pareille je regarde ca et après je regarde le xml du 4.5 que tu m'a renvoyé

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 10 Septembre 2022

• #261

OK, je reviendrai demain matin. Bonne soirée.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2022

• #262

pour la bordure gauche manquante sur les bordure des premiere cellules de la plage
c'est dans la partie correctif des bordures que ca se passe

VB:

If cel.Column > 1 Then    'bordures left
                                For Each c In cel.Offset(, -1)
                                    If c.Column > cel.Cells(1).Column Then
                                    If c.Style.Borders(9).Color <> cel.Borders(7).Color Then .borderleft = 0
                                End If
                                Next
                            End If

et il faudra à tout les coups sans doute ajouter le control de la bordure(9) (right) de la cells( cells.count) de Cel

après ne rêve pas les bordures de fusions sont encore moins bien gérées avec la méthode publier
tout simplement par ce que c'est imcompatible avec les bordure des cellules de table HTML

 

Dernière édition: 10 Septembre 2022

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2022

• #263

le fichier 4.5 que tu m'a renvoyé

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2022

• #264

Bonjour @particktoulon,
Sur la 4.5 ça plante toujours en fichier introuvable chez moi.

 

Dernière édition: 11 Septembre 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2022

• #265

Et comme ces fichiers image n'ont pas de date, je ne peux pas tenter de les localiser avec Everything qui ne les voit pas.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2022

• #266

Il y a peut-être un problème à nommer les images du nom des Shapes / DeawingObjects car on peut avoir des noms identiques pour 2 ou plusieurs d'entre elles / eux. Publish les numérote en séquence.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2022

• #267

Ça plante chez moi car et pas Fl.Type = "Image PNG".
Car j'ai installé IrfanView pour remplacer le viewer Windows de photos qui active parfois un programme qui pompe toute la CPU.

 

Pièces jointes

• 1662894397777.png

  5.6 KB · Affichages: 1

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2022

• #268

En remplaçant Fl.Type = "Image PNG" par If InStr(Fl.Type, "PNG") > 0 ça fonctionne.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 11 Septembre 2022

• #269

A condition de reporter aussi les modifs de la V4.3 des posts 258 et 263 dans la V4.5.

 

Pièces jointes

• RangeToHTMLBase64WithPatrickCode.xlsm

  312.8 KB · Affichages: 0

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Septembre 2022

• #270

re
d'acords on peu faire ça aussi
mais si tout le monde y met son viewer et que les user 32 renvoie leur nom prefixés on va pas s'en sortir alors
donc on remet comme au début
if right(fl.name,4)=".png"then ' et ce sera tout bon

 

Vote positif 0 Vote négatif