Function CreateTableBase2(RnG As Range)
' fonction de base de creation de table html sur la base d'une rng de cellule (accepte les fusions )
' patricktoulon
Dim lig&, col&, cel As Range, Addr$, doc As HTMLDocument, Table, TR, TD, Font, ImG, shap As Shape
Dim Div, ht, texte, al, Ep, c, dossier, Val
Set doc = New HTMLDocument ' creation d'un dochtml virtuel(en memoire )(late binding donc sans reference )
doc.body.innerhtml = ""
Set Div = doc.createElement("div") 'creation de l'element html div qui contiendra tout
doc.body.appendchild (Div) ' on la met dans le body du document virtuel
'Div.contenteditable = True
With Div.Style
.Height = Round(RnG.Height * 1.5)
.Width = "100%"
'.Border = "3pt solid red" 'juste pour le voir pendant les tests
'.Position = "absolute"' on doit le laisser se loger selon le flux
End With
Set Table = doc.createElement("table") 'creation de l'element html table