Hello, je développe un petit soft pour mon stage, je dois envoyer une commande à un appareil sur le port série, et ensuite récupérer certaines données.
 
Voici un bout de code
 
Private Sub Command3_Click()
Call Ouverture
On Error Resume Next
MSComm1.Output = "\C" & Chr(13)
Call Reception
Call Fermeture
End Sub
 
Sub Reception()
Tampon = ""
Do
  DoEvents
  Tampon$ = Tampon$ & MSComm1.Input
Loop Until InStr(Tampon$, vbCrLf)
Text5.Text = Tampon$
End Sub
 
bon ça ça marche bien.
En éxécutant j'obtiens par exemple ceci:
Cell ID        : CI=e46f LAC=3004 MNC=01 MCC=208
 
ce n'est que ce qui est en rouge qui m'intéresse et il faut le convertir en décimal.
 
Pourriez-vous m'aider?