[luxmen]

Bonjour tout le monde...

J'ai un problème (encore), je vous explique :

J'utilise une macro pour convertir les tableaux WORD en HTML avec ce code :

Private Sub Conv_Tableaux_Click()
    Dim t As Table ' T c'est mon tableau
    Dim r As Row
    Dim stTexte As String
    
   ' Dim c As Cell
   'A voir comment sélectionner le bon tableau...
    Set t = ActiveDocument.Tables(1) ' Je prend le 1° tableau du document
    
    stTexte = "<center><table width=100% border=1>"
    For Each r In t.Range.Rows
       stTexte = stTexte & "<TR>"
       For Each c In r.Range.Cells
         stTexte = stTexte & "<TD><div align=center>" & NetCellule(c.Range.Text) & "</div></TD>"
       Next
       stTexte = stTexte & "</TR>" & Chr(13)
    Next
     stTexte = stTexte & "</TABLE></center>"
      
          stTexte = stTexte & "</TABLE>"
     Debug.Print stTexte
     t.Select
     t.Delete
     Selection.TypeText Text:=stTexte
End Sub

Mais j'ai une conversion bizarre au niveau des cellules :

Voici mon doc WORD : (il manque la cellule du titre du tableaux au dessus)


Et j'obtient ceci :


Auriez-vous des macros ou des corrections a celui-ci a me proposer ?

Je vous remercie pour votre aide