J'aimerais =E0 l'aide d'une douchette connect=E9e sur un port=20
com, r=E9cup=E9rer le code barre dans une cellule sous excel.
Quelqu'un connait-il une solution ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
boblebob
salut,
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et cela apparaît dans Excel !
-- A+
Bob ----
"Jeff" a écrit dans le message de news: 1ee301c5021c$143ed890$ Hello
J'aimerais à l'aide d'une douchette connectée sur un port com, récupérer le code barre dans une cellule sous excel. Quelqu'un connait-il une solution ?
Merci
salut,
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et
cela apparaît dans Excel !
--
A+
Bob
----
"Jeff" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1ee301c5021c$143ed890$a401280a@phx.gbl...
Hello
J'aimerais à l'aide d'une douchette connectée sur un port
com, récupérer le code barre dans une cellule sous excel.
Quelqu'un connait-il une solution ?
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et cela apparaît dans Excel !
-- A+
Bob ----
"Jeff" a écrit dans le message de news: 1ee301c5021c$143ed890$ Hello
J'aimerais à l'aide d'une douchette connectée sur un port com, récupérer le code barre dans une cellule sous excel. Quelqu'un connait-il une solution ?
Merci
Jeff
Hi Cela serait trop facile. Cela fonctionne sous un émulateur quelconque ( hyperterminal, PC + ... )mais pas sous Excel, ni Word. Le fait qu'elle soit connectée sur le port Com1 doit avoir une incidence. Il faudrait sans doute une routine VBA pour récupérer les datas provenant du com1. Mes compétences s'arrête malheureusement là. A +
-----Message d'origine----- salut,
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et
cela apparaît dans Excel !
-- A+
Bob ----
"Jeff" a écrit dans le message de
news: 1ee301c5021c$143ed890$ Hello
J'aimerais à l'aide d'une douchette connectée sur un port com, récupérer le code barre dans une cellule sous excel. Quelqu'un connait-il une solution ?
Merci
.
Hi
Cela serait trop facile. Cela fonctionne sous un émulateur
quelconque ( hyperterminal, PC + ... )mais pas sous Excel,
ni Word. Le fait qu'elle soit connectée sur le port Com1
doit avoir une incidence. Il faudrait sans doute une
routine VBA pour récupérer les datas provenant du com1.
Mes compétences s'arrête malheureusement là.
A +
-----Message d'origine-----
salut,
de mémoire rien de spécial à faire, tu branches ta
douchette, tu scannes et
cela apparaît dans Excel !
--
A+
Bob
----
"Jeff" <anonymous@discussions.microsoft.com> a écrit dans
le message de
J'aimerais à l'aide d'une douchette connectée sur un port
com, récupérer le code barre dans une cellule sous excel.
Quelqu'un connait-il une solution ?
Hi Cela serait trop facile. Cela fonctionne sous un émulateur quelconque ( hyperterminal, PC + ... )mais pas sous Excel, ni Word. Le fait qu'elle soit connectée sur le port Com1 doit avoir une incidence. Il faudrait sans doute une routine VBA pour récupérer les datas provenant du com1. Mes compétences s'arrête malheureusement là. A +
-----Message d'origine----- salut,
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et
cela apparaît dans Excel !
-- A+
Bob ----
"Jeff" a écrit dans le message de
news: 1ee301c5021c$143ed890$ Hello
J'aimerais à l'aide d'une douchette connectée sur un port com, récupérer le code barre dans une cellule sous excel. Quelqu'un connait-il une solution ?
Merci
.
Pierre CFI [mvp]
bonjour il faut mettre déjà l'activeX mscom dans un formulaire je te donne le code que j'utilise dans un form access évidement c'est à adapter activex se nomme Mscomm1 ici, dans excel ce doit étre activate
Private Sub Form_Load() With MSComm1 'configuration du port .CommPort = 1 'On utilise le port COM1: .Handshaking = 2 'RTS .RThreshold = 1 .RTSEnable = True 'mieux pour le port COM: .Settings = "9600,n,8,1" .SThreshold = 1 .PortOpen = True 'ouverture du port End With End Sub
Private Sub Form_Unload(Cancel As Integer) Me.MSComm1.PortOpen = False End Sub
Private Sub MSComm1_OnComm() Dim Buffer As Variant Select Case MSComm1.CommEvent 'Gestion des erreurs Case comEvReceive Buffer = MSComm1.Input '// magouille pour mon cas Me.txt_code = Mid(Me.txt_code & Buffer, InStr(Me.txt_code & Buffer, "A"), 8) Case Else End Select
End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr
"Jeff" a écrit dans le message de news:230401c50222$dba2cb70$ Hi Cela serait trop facile. Cela fonctionne sous un émulateur quelconque ( hyperterminal, PC + ... )mais pas sous Excel, ni Word. Le fait qu'elle soit connectée sur le port Com1 doit avoir une incidence. Il faudrait sans doute une routine VBA pour récupérer les datas provenant du com1. Mes compétences s'arrête malheureusement là. A +
-----Message d'origine----- salut,
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et
cela apparaît dans Excel !
-- A+
Bob ----
"Jeff" a écrit dans le message de
news: 1ee301c5021c$143ed890$ Hello
J'aimerais à l'aide d'une douchette connectée sur un port com, récupérer le code barre dans une cellule sous excel. Quelqu'un connait-il une solution ?
Merci
.
bonjour
il faut mettre déjà l'activeX mscom dans un formulaire
je te donne le code que j'utilise dans un form access
évidement c'est à adapter
activex se nomme Mscomm1
ici, dans excel ce doit étre activate
Private Sub Form_Load()
With MSComm1 'configuration du port
.CommPort = 1 'On utilise le port COM1:
.Handshaking = 2 'RTS
.RThreshold = 1
.RTSEnable = True 'mieux pour le port COM:
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True 'ouverture du port
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Me.MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Dim Buffer As Variant
Select Case MSComm1.CommEvent
'Gestion des erreurs
Case comEvReceive
Buffer = MSComm1.Input
'// magouille pour mon cas
Me.txt_code = Mid(Me.txt_code & Buffer, InStr(Me.txt_code & Buffer, "A"), 8)
Case Else
End Select
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Jeff" <anonymous@discussions.microsoft.com> a écrit dans le message de news:230401c50222$dba2cb70$a601280a@phx.gbl...
Hi
Cela serait trop facile. Cela fonctionne sous un émulateur
quelconque ( hyperterminal, PC + ... )mais pas sous Excel,
ni Word. Le fait qu'elle soit connectée sur le port Com1
doit avoir une incidence. Il faudrait sans doute une
routine VBA pour récupérer les datas provenant du com1.
Mes compétences s'arrête malheureusement là.
A +
-----Message d'origine-----
salut,
de mémoire rien de spécial à faire, tu branches ta
douchette, tu scannes et
cela apparaît dans Excel !
--
A+
Bob
----
"Jeff" <anonymous@discussions.microsoft.com> a écrit dans
le message de
J'aimerais à l'aide d'une douchette connectée sur un port
com, récupérer le code barre dans une cellule sous excel.
Quelqu'un connait-il une solution ?
bonjour il faut mettre déjà l'activeX mscom dans un formulaire je te donne le code que j'utilise dans un form access évidement c'est à adapter activex se nomme Mscomm1 ici, dans excel ce doit étre activate
Private Sub Form_Load() With MSComm1 'configuration du port .CommPort = 1 'On utilise le port COM1: .Handshaking = 2 'RTS .RThreshold = 1 .RTSEnable = True 'mieux pour le port COM: .Settings = "9600,n,8,1" .SThreshold = 1 .PortOpen = True 'ouverture du port End With End Sub
Private Sub Form_Unload(Cancel As Integer) Me.MSComm1.PortOpen = False End Sub
Private Sub MSComm1_OnComm() Dim Buffer As Variant Select Case MSComm1.CommEvent 'Gestion des erreurs Case comEvReceive Buffer = MSComm1.Input '// magouille pour mon cas Me.txt_code = Mid(Me.txt_code & Buffer, InStr(Me.txt_code & Buffer, "A"), 8) Case Else End Select
End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr
"Jeff" a écrit dans le message de news:230401c50222$dba2cb70$ Hi Cela serait trop facile. Cela fonctionne sous un émulateur quelconque ( hyperterminal, PC + ... )mais pas sous Excel, ni Word. Le fait qu'elle soit connectée sur le port Com1 doit avoir une incidence. Il faudrait sans doute une routine VBA pour récupérer les datas provenant du com1. Mes compétences s'arrête malheureusement là. A +
-----Message d'origine----- salut,
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et
cela apparaît dans Excel !
-- A+
Bob ----
"Jeff" a écrit dans le message de
news: 1ee301c5021c$143ed890$ Hello
J'aimerais à l'aide d'une douchette connectée sur un port com, récupérer le code barre dans une cellule sous excel. Quelqu'un connait-il une solution ?
Merci
.
david.taieb
Pour ma part, j'ai déjà fait ça sur excel (mais sur mac) il m'a suffit d'installer les "typo code bar " livrées avec ma douchette, et lorsque je passais sur mon code barre le code apparaissait dans ma cellule.... Essaye donc deja d'installer tes typos et reesaye
bonjour il faut mettre déjà l'activeX mscom dans un formulaire je te donne le code que j'utilise dans un form access évidement c'est à adapter activex se nomme Mscomm1 ici, dans excel ce doit étre activate
Private Sub Form_Load() With MSComm1 'configuration du port .CommPort = 1 'On utilise le port COM1: .Handshaking = 2 'RTS .RThreshold = 1 .RTSEnable = True 'mieux pour le port COM: .Settings = "9600,n,8,1" .SThreshold = 1 .PortOpen = True 'ouverture du port End With End Sub
Private Sub Form_Unload(Cancel As Integer) Me.MSComm1.PortOpen = False End Sub
Private Sub MSComm1_OnComm() Dim Buffer As Variant Select Case MSComm1.CommEvent 'Gestion des erreurs Case comEvReceive Buffer = MSComm1.Input '// magouille pour mon cas Me.txt_code = Mid(Me.txt_code & Buffer, InStr(Me.txt_code & Buffer, "A"), 8) Case Else End Select
End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr
"Jeff" a écrit dans le message de news:230401c50222$dba2cb70$ Hi Cela serait trop facile. Cela fonctionne sous un émulateur quelconque ( hyperterminal, PC + ... )mais pas sous Excel, ni Word. Le fait qu'elle soit connectée sur le port Com1 doit avoir une incidence. Il faudrait sans doute une routine VBA pour récupérer les datas provenant du com1. Mes compétences s'arrête malheureusement là. A +
-----Message d'origine----- salut,
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et
cela apparaît dans Excel !
-- A+
Bob ----
"Jeff" a écrit dans le message de
news: 1ee301c5021c$143ed890$ Hello
J'aimerais à l'aide d'une douchette connectée sur un port com, récupérer le code barre dans une cellule sous excel. Quelqu'un connait-il une solution ?
Merci
.
Pour ma part, j'ai déjà fait ça sur excel (mais sur mac) il m'a suffit
d'installer les "typo code bar " livrées avec ma douchette, et lorsque je
passais sur mon code barre le code apparaissait dans ma cellule....
Essaye donc deja d'installer tes typos et reesaye
bonjour
il faut mettre déjà l'activeX mscom dans un formulaire
je te donne le code que j'utilise dans un form access
évidement c'est à adapter
activex se nomme Mscomm1
ici, dans excel ce doit étre activate
Private Sub Form_Load()
With MSComm1 'configuration du port
.CommPort = 1 'On utilise le port COM1:
.Handshaking = 2 'RTS
.RThreshold = 1
.RTSEnable = True 'mieux pour le port COM:
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True 'ouverture du port
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Me.MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Dim Buffer As Variant
Select Case MSComm1.CommEvent
'Gestion des erreurs
Case comEvReceive
Buffer = MSComm1.Input
'// magouille pour mon cas
Me.txt_code = Mid(Me.txt_code & Buffer, InStr(Me.txt_code & Buffer, "A"), 8)
Case Else
End Select
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Jeff" <anonymous@discussions.microsoft.com> a écrit dans le message de news:230401c50222$dba2cb70$a601280a@phx.gbl...
Hi
Cela serait trop facile. Cela fonctionne sous un émulateur
quelconque ( hyperterminal, PC + ... )mais pas sous Excel,
ni Word. Le fait qu'elle soit connectée sur le port Com1
doit avoir une incidence. Il faudrait sans doute une
routine VBA pour récupérer les datas provenant du com1.
Mes compétences s'arrête malheureusement là.
A +
-----Message d'origine-----
salut,
de mémoire rien de spécial à faire, tu branches ta
douchette, tu scannes et
cela apparaît dans Excel !
--
A+
Bob
----
"Jeff" <anonymous@discussions.microsoft.com> a écrit dans
le message de
J'aimerais à l'aide d'une douchette connectée sur un port
com, récupérer le code barre dans une cellule sous excel.
Quelqu'un connait-il une solution ?
Pour ma part, j'ai déjà fait ça sur excel (mais sur mac) il m'a suffit d'installer les "typo code bar " livrées avec ma douchette, et lorsque je passais sur mon code barre le code apparaissait dans ma cellule.... Essaye donc deja d'installer tes typos et reesaye
bonjour il faut mettre déjà l'activeX mscom dans un formulaire je te donne le code que j'utilise dans un form access évidement c'est à adapter activex se nomme Mscomm1 ici, dans excel ce doit étre activate
Private Sub Form_Load() With MSComm1 'configuration du port .CommPort = 1 'On utilise le port COM1: .Handshaking = 2 'RTS .RThreshold = 1 .RTSEnable = True 'mieux pour le port COM: .Settings = "9600,n,8,1" .SThreshold = 1 .PortOpen = True 'ouverture du port End With End Sub
Private Sub Form_Unload(Cancel As Integer) Me.MSComm1.PortOpen = False End Sub
Private Sub MSComm1_OnComm() Dim Buffer As Variant Select Case MSComm1.CommEvent 'Gestion des erreurs Case comEvReceive Buffer = MSComm1.Input '// magouille pour mon cas Me.txt_code = Mid(Me.txt_code & Buffer, InStr(Me.txt_code & Buffer, "A"), 8) Case Else End Select
End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr
"Jeff" a écrit dans le message de news:230401c50222$dba2cb70$ Hi Cela serait trop facile. Cela fonctionne sous un émulateur quelconque ( hyperterminal, PC + ... )mais pas sous Excel, ni Word. Le fait qu'elle soit connectée sur le port Com1 doit avoir une incidence. Il faudrait sans doute une routine VBA pour récupérer les datas provenant du com1. Mes compétences s'arrête malheureusement là. A +
-----Message d'origine----- salut,
de mémoire rien de spécial à faire, tu branches ta douchette, tu scannes et
cela apparaît dans Excel !
-- A+
Bob ----
"Jeff" a écrit dans le message de
news: 1ee301c5021c$143ed890$ Hello
J'aimerais à l'aide d'une douchette connectée sur un port com, récupérer le code barre dans une cellule sous excel. Quelqu'un connait-il une solution ?
