VBA excel port serie

Version imprimable

06/01/2013, 14h39
Robs68

VBA excel port serie

Bonjour,

Je souhaite faire un programme VBA sous excel permettant de capturer les informations émise par un MSP430 sur le port série (COM 4), puis dans un 2nd temps faire un graphique avec ces données.

J'ai essayé de suivre le tuto ici : http://cherbe.free.fr/rs232.html

Mais dès que je le lance, excel 2010 plante.:aie:

Est-ce que quelqu'un aurait-il une idée ?

Merci

J'ai avancé un petit peu dans mon projet, j'arrive à avoir les données sous excel.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton1_Click() MSComm1.InBufferCount = 0 MSComm1.CommPort = 4 MSComm1.Settings = "9600,N,8,1" MSComm1.PortOpen = True Dim tampon$ Do DoEvents tampon$ = tampon$ & MSComm1.Input Sheets("Feuil1").Range("A1") = tampon$ Loop Until InStr(tampon$, "OK" & vbCrLf) MSComm1.PortOpen = False
Je voudrais savoir comment aller à la cellule du dessous à chaque donnée acquise svp ?

Merci

Bonjour,

Peut être un truc du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
MSComm1.InBufferCount = 0
MSComm1.CommPort = 4
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
Dim tampon$
 
'///
Dim R As Range
Set R = Sheets("Feuil1").Range("A1")
'///
 
Do
  DoEvents
  tampon$ = tampon$ & MSComm1.Input
 
  '///
  R = tampon$
  Set R = R.Offset(1, 0)
  '///
 
Loop Until InStr(tampon$, "OK" & vbCrLf)
MSComm1.PortOpen = False