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 ???)
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...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci de votre aide, dans l'attente d'une âme charitable![]()
Partager