IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Récupérer données RS232 dans Excel 2003


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Février 2011
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 1
    Points : 1
    Points
    1
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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!

  2. #2
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Points : 11 272
    Points
    11 272
    Par défaut
    Salut,tu t'embêteras beaucoup moins en cherchant comment importer un fichier texte
    reste à savoir s'il possede un séparateur de liste ou s'il est colonné

    voir http://www.google.fr/#hl=fr&source=h...57bd24f3e851ea
    voir http://excel.developpez.com/faq/?page=ChapFichiersTxt

    un échantillon de fichier à importer serait souhaitable

Discussions similaires

  1. Réponses: 1
    Dernier message: 06/01/2014, 15h44
  2. [AC-2003] Export de données dans Excel 2003
    Par Daejung dans le forum VBA Access
    Réponses: 5
    Dernier message: 09/12/2010, 11h44
  3. éélaboration d'une macro pour importation de donnée dans excel 2003
    Par wuging dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 17/09/2010, 09h33
  4. [XL 2003] [BO XI] Import données BO dans Excel
    Par couistelle dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 22/06/2009, 13h29
  5. [VB.NET] Problème avec un OptionButton dans Excel 2003
    Par alfprod dans le forum Windows Forms
    Réponses: 3
    Dernier message: 09/09/2004, 14h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo