Récupération données RS232
Bonjour,
Dans le cadre d'un de mes projets, je dois réaliser l'instrumentation d'un véhicule électrique. Pour ce faire il me faut récupérer les données d'un gps à l'aide d'une liaison usb émulée en RS232.
J'ai l'intention d'afficher ces données sur une page excel en passant par une macro vba en utilisant un module activeX NETCOMM.
Voici le début du programme (Je ne sais pas ce qu'il faut écrire au niveau des ???)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Private Sub CommandButton1_Click()
NETComm1.InBufferCount = 0
NETComm1.CommPort = 9
NETComm1.Settings = "4800,o,8,1"
Dim variable As String
NETComm1.PortOpen = True
NETComm1.Output = ???
variable = NETComm1.InputData
NETComm1.PortOpen = False
MsgBox variable
Cells(2, 2) = Cells(2, 2) + 1
End Sub |
MsgBox s'affiche mais il n'y a rien à l'intérieur, or il y a peut être une meilleur méthode pour afficher ma variable...
Merci de votre aide, dans l'attente d'une âme charitable :frenchy:
