VBA et port série

Medestrac -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai une vieille balance qui peut envoyer ses données par un port série.

J'aimerais enregistrer les valeurs dans un tableau Excel.
Google m'a guidé pour la macro suivante:
Public Sub SerialPort()
Open "COM4:115200,N,8,1" For Binary Access Read Write as #1
receiveDummy$ = "~~~"
Do While True
receive$ = receiveDummy$
Input #1, receive$
If receive$ = receiveDummy$ Then Exit Do
Debug.Print receive$
Loop

Close #1
End sub


Mais dès que j'arrive sur "Input #1, receive$" Excel plante :/
Un conseil?

1 réponse

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour,
    peut-être ajouter
    Len = 1
    à la fin de la ligne
    Open
    .

    peux-tu spécifier le langage (basic) dans les balises de code?
    0