Salut,
J'ai ce genre de fichier :
1 §©§Ñ§á§Ý§Ñ§ß§Ú§â§à§Ó§Ñ§ß§Ú§Ö
2 §°§ä§Ü§â§í§ä§à
3 Personnal
4 §±§à§Ü§Ñ§Ø§Ú§ä§Ö §Ú§ß§æ§à§â§Þ§Ñ§è§Ú§ð §á§à§Õ §Ú§Þ§Ö§ß§Ñ§Þ§Ú
5 §£§í§Û§Õ§Ú§ä§Ö
pour lire un fichier :
Dim b() As Byte
Open sFile For Binary Access Read As nNumFile
ReDim b(LOF(nNumFile))
Get nNumFile, , b
Close nNumFile
puis je souhaite placer chaque ligne dans un tableau comme :
tbMsgID(1)="§©§Ñ§á§Ý§Ñ§ß§Ú§â§à§Ó§Ñ§ß§Ú§Ö"
tbMsgID(2)="§°§ä§Ü§â§í§ä§à"
Et toute la difficult¨¦ est l¨¤ 
:
sMessage = b
sMessage = Replace$(b, uBOM, "")
j = InStrB(sMessage, vbCrLf)
Do While j > 0
s = MidB(sMessage, 1, j)
i = InStrB(s, vbTab)
If Not i = 0 Then
nID = CInt(StrConv(MidB(s, 1, i - 1), vbFromUnicode)) ****
If nID > UBound(tbMsgID) Then ReDim Preserve tbMsgID(nID)
tbMsgID(nID) = Trim$(MidB(s, i + 2)) 's
End If
sMessage = MidB(sMessage, j + 1)
j = InStrB(sMessage, vbCrLf)
Loop
Mais o¨´ j'ai mis **** , s=?1 et donc incapable de renvoyer la valeur num¨¦rique !
Un Dieu VB rode dans le coin ?
par avance merci (ca fait 2 jours que j'y suis et je suis HS)