... c'est aussi dû au mauvais codage de la page html...
Bonjour à tous,
@Steelson, en fait la page est codée très classiquement en UTF-8.
Je te propose ici une fonction pour décoder le texte, l'appel est simple du genre : Txt = Utf8_Decode(Txt)
(juste avant ta ligne obj.SetText Txt
)
Function Utf8_Decode(ByVal Txt As String) As String
Dim ln As Long, S As String, i As Integer, j As Integer, k As Integer
For ln = 1 To Len(Txt)
i = Asc(Mid(Txt, ln, 1))
If i > 127 Then
If Not i And 32 Then
j = Asc(Mid(Txt, ln + 1, 1))
S = S & ChrW$(((31 And i) * 64 + (63 And j)))
ln = ln + 1
Else
j = Asc(Mid(Txt, ln + 1, 1))
k = Asc(Mid(Txt, ln + 2, 1))
S = S & ChrW$(((i And 15) * 16 * 256) + ((j And 63) * 64) + (k And 63))
ln = ln + 2
End If
Else
S = S & Chr$(i)
End If
Next ln
Utf8_Decode = S
End Function
(la fonction n'est pas de moi, mais je n'ai plus la source exacte, BodwadUK peut être?)
Pierre