La somme des largeurs de cellules données par word ne me donne pas toujours la même valeur ... il y as des petit décalage ... pour rattraper cela modifie la fonction iNbCol :
Code :
...
bTrouve = False
While i <= UBound(tMes) And Not bTrouve
If tMes(i) < sDepart + 0.01 Then iDeb = i
iFin = i
If tMes(i) >= c.PreferredWidth + sDepart - 0.05 Then bTrouve = True
i = i + 1
Wend
...
par le rajout du
-0.05
Pour ce qui est des cellules non encadrées ., c'est les cellules vides ...j'ai regardé la FAQ HTLM .. il est dit que pour éviter cela il faut mettre un espace dans le tableau <TD> <\TD> .. bon cela ne marche pas chez moi lors de lavisualisation sous Firefox par contre c'est ok si je rajoute un caractére Chr(160) ... donc pour cela modifie la fin de la fonction
NetCellule :
Code :
...
If Len(st2) = 0 Then st2 = Chr(160)
NetCellule = st2
End Function
