Récupérer données RS232 dans Excel 2003
Bonjour,
J'ai un conductimètre CONSORT qui permet de récupérer des données par le port RS232 de l'ordinateur
J'aimerais bien "bidouiller" un peu de code pour pouvoir récupérer ces données directement dans excel 2003 pour les exploiter plus facilement. Les données de l'appareil sont sous la forme d'une table en ASCII de 4 colonnes (id, heure, conductivité, température) et x lignes (max 500).
Le module MSComm de windows ne fonctionne pas (une histoire de licence incompatible), j'ai donc installé le module NETComm qui est tout à fait similaire mais libre (http://home.comcast.net/~hardandsoftware/NETCommOCX.htm). La syntaxe VB est strictement la même que pour MSComm, sauf pour la commande MSComm.Input qui devient NETComm.InputData.
J'ai donc créé un userfom avec les données du port dans l'utilitaire VBA d'excel mais je ne parvient pas à récupérer les données de l'appareil. Mes connaissances en basique sont assez limitées, je requiert donc un peu d'aide pour mettre en forme mon code.
Voici pour l'instant l'intro de mon code, non fonctionnel :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Sub CommandButton1_Click()
NETComm1.InBufferCount = 0
NETComm1.CommPort = 1
NETComm1.Settings = "9600,o,8,1"
If NETComm1.PortOpen = False Then
NETComm1.PortOpen = True
End if
NETComm1.InputLen = 0
??
NETComm1.PortOpen = False |
Quel code dois-je entrer pour que le programme lise et copie la table de données de l'appareil dans le tableur excel? Je vous remercie de votre aide précieuse!
Bonne journée! ;)
