Bonjour Tchouck
J'ai récupéré un code mais je sais pas si cela va t'aider et d'ailleur moi même pour l'instant je ne l'utilise pas et ne sais le faire.
***************************************************
Function CodASCII$(txtin$)
Dim i As Integer
CodASCII = ""
For i = 1 To Len(txtin)
CodASCII = CodASCII & Asc(Mid(txtin, i, 1))
If i < Len(txtin) Then
CodASCII = CodASCII & "."
End If
Next i
End Function
*************************************
J'espere que cela va t'aider si ce n'est pas le cas bon courage.
j5em3110