Mais non ce n'est pas la galère ...
Essaie cette fonction, à adapter sans doute :
Function texthtml(texte As String) As String
Dim i
texthtml = ""
For i = 1 To Len(texte)
If Asc(Mid(texte, i, 1)) > 127 Or Asc(Mid(texte, i, 1)) = 39 Then
texthtml = texthtml + "&#" + Application.Trim(Str(Asc(Mid(texte, i, 1)))) + ";"
Else
texthtml = texthtml + Mid(texte, i, 1)
End If
Next
End Function
Enfin, j'ai ceci sous la main (les caractères exotiques sont transformés en &xxx;
)
si cela ne fonctionne pas, il faudra les transformer en %yy dans le même esprit ...