Conversion vers HTML

' cvt en html sauf ligatures e
function cvhtml(a)
dim s
s = a
s = replace(s, "&", "&")
s = replace(s, "é", "é")
s = replace(s, "ó", "ó")
s = replace(s, "ú", "ú")
s = replace(s, "à", "à")
s = replace(s, "è", "è")
s = replace(s, "ù", "ù")
s = replace(s, "Á", "Á")
s = replace(s, "É", "É")
s = replace(s, "Ó", "Ó")
s = replace(s, "À", "À")
s = replace(s, "ê", "ê")
s = replace(s, "î", "î")
s = replace(s, "ô", "ô")
s = replace(s, "û", "û")
s = replace(s, "ç", "ç")
s = replace(s, "ë", "ë")
s = replace(s, "ï", "ï")
s = replace(s, "ö", "ö")
s = replace(s, "ü", "ü")
s = replace(s, "Ö", "Ö")
cvhtml = s & "<br>"
end function

Décomposer un spoule

Pour convertir un spoule :
1. importer le spoule dans Calc / toute la ligne doit tenir dans une cellule
2. Insérer une ligne de titre
3. dans la ligne de titre (et pour chq colonne) mettre le nb de car représentant la colonne
4. en B2 mettre =SUPPRESPACE(SUBSTITUE(STXT(A2;1;B$1);CAR(160);"")) et répliquer sur toute la hauteur
5. en C2 mettre =SUPPRESPACE(SUBSTITUE(STXT($A2;SOMME($B$1:B$1)+1;C$1);CAR(160);"")) et répliquer sur toute la hauteur
6. répliquer la colonne C (exceptée la lig de titre) pour chaque colonne désirée