Discussion :

[JP47700]

Bonjour

J'aimerai pouvoir utiliser ma base de donnée (Access 2010) pour envoyer des numéros de stockage a un robot.

Mon pc est jumelé avec le Robot (Carte Arduino) via Bluetooth et HTC06 couplé sur le port com 10.

il me faudrait certainement une petite Procédure Sub

Merci de votre aide

Jean

[marot_r]

Bonjour.

Ici tu as une solution qui "écrit" dans le port COM comme si c'était un fichier texte.
https://stackoverflow.com/questions/...-port-from-vba
Par contre je ne sais pas si on peut utiliser COM10. Cet méthode date des 1er PCs qui avaient généralement seulement 2 ports séries.

Sinon tu as ici une solution avec MSCOMM32.

https://www.excelforum.com/excel-pro...-with-vba.html

A+

[JP47700]

Merci

Je vais commencer a me creuser la tete avec ca
J'ai pris un petit morceau pour tester ce soir qui parait simple et logique ....

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
Public Sub Commande0_Click()
    ' open a COM port, transmit a message, gather results, close the port.
 
    ' open the COM port as file #1
    Debug.Print "Open COM port 1"
    Open "COM1:115200,N,8,1" For Binary Access Read Write As #1
 
    transmit$ = Chr(2) + "Hello, World." + Chr(13)
    receiveDummy$ = "~~~"
 
    ' transmit a message
    Put #1, , transmit$
    Debug.Print "Message sent."
 
 
    ' close the serial port
    Debug.Print "Close COM port."
    Close #1
 
    Debug.Print "Done."
End Sub