Bonjour,
Je suis en train de développer une application en VBA, sous Excel, qui
doit, lorsque un code barre est lu par un lecteur de code barre, faire une
action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est presque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numérique vient
du lecteur de code barre ou du clavier normal de l'ordinateur ? En effet
l'action suivante doit être effectuée uniquement si l'information provient
du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un nouveau
clavier est ajouté au profil matériel du panneau de config. J'ai déjà fait
une routine permettant de récupérer la désignation de ce lecteur/clavier
et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry
Bonjour,
Je suis en train de développer une application en VBA, sous Excel, qui
doit, lorsque un code barre est lu par un lecteur de code barre, faire une
action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est presque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numérique vient
du lecteur de code barre ou du clavier normal de l'ordinateur ? En effet
l'action suivante doit être effectuée uniquement si l'information provient
du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un nouveau
clavier est ajouté au profil matériel du panneau de config. J'ai déjà fait
une routine permettant de récupérer la désignation de ce lecteur/clavier
et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry
Bonjour,
Je suis en train de développer une application en VBA, sous Excel, qui
doit, lorsque un code barre est lu par un lecteur de code barre, faire une
action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est presque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numérique vient
du lecteur de code barre ou du clavier normal de l'ordinateur ? En effet
l'action suivante doit être effectuée uniquement si l'information provient
du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un nouveau
clavier est ajouté au profil matériel du panneau de config. J'ai déjà fait
une routine permettant de récupérer la désignation de ce lecteur/clavier
et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry
Bonsoir,
Voila comment j'ai pratique.
il faut MSComm sur ton application.
et ensuite.......
'*******************************
'* Parametres lecture port COM *
'*******************************
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1 ' 1 sir sur COM1 ou 2 sur COM2 et .....
MSComm1.PortOpen = True
MSComm1.SThreshold = 1
'****************************************************************
'* Capture des datas a traiter : a placer dans un timer
'****************************************************************
Text1.Text = Tampon & MSComm1.Input
Private Sub Text1_Change()
'***********************************************************
'* Remplace le [Enter = Cr] et le [Retour a la ligne = Lf] *
'***********************************************************
Text1.Text = Replace(Text1.Text, vbCr, "")
Text1.Text = Replace(Text1.Text, vbLf, "")
Text1.Text = Trim(Text1.Text)
'********************************************************************** *******
'* Traiter les datas saisie par le scanner, suivant la longueur de la d onnee
*
'********************************************************************** *******
Select Case Len(Text1.Text)
Case 3, 1
'******************
'* N° de l'ouvier *
'******************
Call Nom_Ouvrier
Case 6
'**************************
'* Numero d'Ordre Magasin *
'**************************
Call Om
Case 8
'***************************************
'* Active l'ongle EQUIPE 1 ou EQUIPE 2 *
'***************************************
Call Equipe
Case 9
'************************************************
'* Effacer la grille et zones pour nouveau O.M. *
'************************************************
Call Nouveau_OM
Case 22
'**************************************
'* Ecriture des donnes dans la grille *
'**************************************
Call Essieux
End Select
'********************************
'* Mise a zero de la zone TEXT1 *
'********************************
Text1.Text = ""
End Sub
bonne programmation
Salva
"Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le
message de news: %Bonjour,
Je suis en train de développer une application en VBA, sous Excel, q ui
doit, lorsque un code barre est lu par un lecteur de code barre, faire une
action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est pre sque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numér ique vient
du lecteur de code barre ou du clavier normal de l'ordinateur ? En eff et
l'action suivante doit être effectuée uniquement si l'information provient
du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un no uveau
clavier est ajouté au profil matériel du panneau de config. J'ai d éjà fait
une routine permettant de récupérer la désignation de ce lecteur /clavier
et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry
Bonsoir,
Voila comment j'ai pratique.
il faut MSComm sur ton application.
et ensuite.......
'*******************************
'* Parametres lecture port COM *
'*******************************
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1 ' 1 sir sur COM1 ou 2 sur COM2 et .....
MSComm1.PortOpen = True
MSComm1.SThreshold = 1
'****************************************************************
'* Capture des datas a traiter : a placer dans un timer
'****************************************************************
Text1.Text = Tampon & MSComm1.Input
Private Sub Text1_Change()
'***********************************************************
'* Remplace le [Enter = Cr] et le [Retour a la ligne = Lf] *
'***********************************************************
Text1.Text = Replace(Text1.Text, vbCr, "")
Text1.Text = Replace(Text1.Text, vbLf, "")
Text1.Text = Trim(Text1.Text)
'********************************************************************** *******
'* Traiter les datas saisie par le scanner, suivant la longueur de la d onnee
*
'********************************************************************** *******
Select Case Len(Text1.Text)
Case 3, 1
'******************
'* N° de l'ouvier *
'******************
Call Nom_Ouvrier
Case 6
'**************************
'* Numero d'Ordre Magasin *
'**************************
Call Om
Case 8
'***************************************
'* Active l'ongle EQUIPE 1 ou EQUIPE 2 *
'***************************************
Call Equipe
Case 9
'************************************************
'* Effacer la grille et zones pour nouveau O.M. *
'************************************************
Call Nouveau_OM
Case 22
'**************************************
'* Ecriture des donnes dans la grille *
'**************************************
Call Essieux
End Select
'********************************
'* Mise a zero de la zone TEXT1 *
'********************************
Text1.Text = ""
End Sub
bonne programmation
Salva
"Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le
message de news: %23s8TseuGIHA.4228@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je suis en train de développer une application en VBA, sous Excel, q ui
doit, lorsque un code barre est lu par un lecteur de code barre, faire une
action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est pre sque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numér ique vient
du lecteur de code barre ou du clavier normal de l'ordinateur ? En eff et
l'action suivante doit être effectuée uniquement si l'information provient
du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un no uveau
clavier est ajouté au profil matériel du panneau de config. J'ai d éjà fait
une routine permettant de récupérer la désignation de ce lecteur /clavier
et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry
Bonsoir,
Voila comment j'ai pratique.
il faut MSComm sur ton application.
et ensuite.......
'*******************************
'* Parametres lecture port COM *
'*******************************
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1 ' 1 sir sur COM1 ou 2 sur COM2 et .....
MSComm1.PortOpen = True
MSComm1.SThreshold = 1
'****************************************************************
'* Capture des datas a traiter : a placer dans un timer
'****************************************************************
Text1.Text = Tampon & MSComm1.Input
Private Sub Text1_Change()
'***********************************************************
'* Remplace le [Enter = Cr] et le [Retour a la ligne = Lf] *
'***********************************************************
Text1.Text = Replace(Text1.Text, vbCr, "")
Text1.Text = Replace(Text1.Text, vbLf, "")
Text1.Text = Trim(Text1.Text)
'********************************************************************** *******
'* Traiter les datas saisie par le scanner, suivant la longueur de la d onnee
*
'********************************************************************** *******
Select Case Len(Text1.Text)
Case 3, 1
'******************
'* N° de l'ouvier *
'******************
Call Nom_Ouvrier
Case 6
'**************************
'* Numero d'Ordre Magasin *
'**************************
Call Om
Case 8
'***************************************
'* Active l'ongle EQUIPE 1 ou EQUIPE 2 *
'***************************************
Call Equipe
Case 9
'************************************************
'* Effacer la grille et zones pour nouveau O.M. *
'************************************************
Call Nouveau_OM
Case 22
'**************************************
'* Ecriture des donnes dans la grille *
'**************************************
Call Essieux
End Select
'********************************
'* Mise a zero de la zone TEXT1 *
'********************************
Text1.Text = ""
End Sub
bonne programmation
Salva
"Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le
message de news: %Bonjour,
Je suis en train de développer une application en VBA, sous Excel, q ui
doit, lorsque un code barre est lu par un lecteur de code barre, faire une
action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est pre sque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numér ique vient
du lecteur de code barre ou du clavier normal de l'ordinateur ? En eff et
l'action suivante doit être effectuée uniquement si l'information provient
du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un no uveau
clavier est ajouté au profil matériel du panneau de config. J'ai d éjà fait
une routine permettant de récupérer la désignation de ce lecteur /clavier
et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry
Bonsoir,
Voila comment j'ai pratique.
il faut MSComm sur ton application.
et ensuite.......
'*******************************
'* Parametres lecture port COM *
'*******************************
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1 ' 1 sir sur COM1 ou 2 sur COM2 et .....
MSComm1.PortOpen = True
MSComm1.SThreshold = 1
'****************************************************************
'* Capture des datas a traiter : a placer dans un timer
'****************************************************************
Text1.Text = Tampon & MSComm1.Input
Private Sub Text1_Change()
'***********************************************************
'* Remplace le [Enter = Cr] et le [Retour a la ligne = Lf] *
'***********************************************************
Text1.Text = Replace(Text1.Text, vbCr, "")
Text1.Text = Replace(Text1.Text, vbLf, "")
Text1.Text = Trim(Text1.Text)
'*****************************************************************************
'* Traiter les datas saisie par le scanner, suivant la longueur de la
donnee *
'*****************************************************************************
Select Case Len(Text1.Text)
Case 3, 1
'******************
'* N° de l'ouvier *
'******************
Call Nom_Ouvrier
Case 6
'**************************
'* Numero d'Ordre Magasin *
'**************************
Call Om
Case 8
'***************************************
'* Active l'ongle EQUIPE 1 ou EQUIPE 2 *
'***************************************
Call Equipe
Case 9
'************************************************
'* Effacer la grille et zones pour nouveau O.M. *
'************************************************
Call Nouveau_OM
Case 22
'**************************************
'* Ecriture des donnes dans la grille *
'**************************************
Call Essieux
End Select
'********************************
'* Mise a zero de la zone TEXT1 *
'********************************
Text1.Text = ""
End Sub
bonne programmation
Salva
"Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le
message de news: %Bonjour,
Je suis en train de développer une application en VBA, sous Excel, qui
doit, lorsque un code barre est lu par un lecteur de code barre, faire
une action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est presque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numérique
vient du lecteur de code barre ou du clavier normal de l'ordinateur ? En
effet l'action suivante doit être effectuée uniquement si l'information
provient du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un nouveau
clavier est ajouté au profil matériel du panneau de config. J'ai déjà
fait une routine permettant de récupérer la désignation de ce
lecteur/clavier et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry
Bonsoir,
Voila comment j'ai pratique.
il faut MSComm sur ton application.
et ensuite.......
'*******************************
'* Parametres lecture port COM *
'*******************************
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1 ' 1 sir sur COM1 ou 2 sur COM2 et .....
MSComm1.PortOpen = True
MSComm1.SThreshold = 1
'****************************************************************
'* Capture des datas a traiter : a placer dans un timer
'****************************************************************
Text1.Text = Tampon & MSComm1.Input
Private Sub Text1_Change()
'***********************************************************
'* Remplace le [Enter = Cr] et le [Retour a la ligne = Lf] *
'***********************************************************
Text1.Text = Replace(Text1.Text, vbCr, "")
Text1.Text = Replace(Text1.Text, vbLf, "")
Text1.Text = Trim(Text1.Text)
'*****************************************************************************
'* Traiter les datas saisie par le scanner, suivant la longueur de la
donnee *
'*****************************************************************************
Select Case Len(Text1.Text)
Case 3, 1
'******************
'* N° de l'ouvier *
'******************
Call Nom_Ouvrier
Case 6
'**************************
'* Numero d'Ordre Magasin *
'**************************
Call Om
Case 8
'***************************************
'* Active l'ongle EQUIPE 1 ou EQUIPE 2 *
'***************************************
Call Equipe
Case 9
'************************************************
'* Effacer la grille et zones pour nouveau O.M. *
'************************************************
Call Nouveau_OM
Case 22
'**************************************
'* Ecriture des donnes dans la grille *
'**************************************
Call Essieux
End Select
'********************************
'* Mise a zero de la zone TEXT1 *
'********************************
Text1.Text = ""
End Sub
bonne programmation
Salva
"Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le
message de news: %23s8TseuGIHA.4228@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je suis en train de développer une application en VBA, sous Excel, qui
doit, lorsque un code barre est lu par un lecteur de code barre, faire
une action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est presque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numérique
vient du lecteur de code barre ou du clavier normal de l'ordinateur ? En
effet l'action suivante doit être effectuée uniquement si l'information
provient du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un nouveau
clavier est ajouté au profil matériel du panneau de config. J'ai déjà
fait une routine permettant de récupérer la désignation de ce
lecteur/clavier et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry
Bonsoir,
Voila comment j'ai pratique.
il faut MSComm sur ton application.
et ensuite.......
'*******************************
'* Parametres lecture port COM *
'*******************************
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1 ' 1 sir sur COM1 ou 2 sur COM2 et .....
MSComm1.PortOpen = True
MSComm1.SThreshold = 1
'****************************************************************
'* Capture des datas a traiter : a placer dans un timer
'****************************************************************
Text1.Text = Tampon & MSComm1.Input
Private Sub Text1_Change()
'***********************************************************
'* Remplace le [Enter = Cr] et le [Retour a la ligne = Lf] *
'***********************************************************
Text1.Text = Replace(Text1.Text, vbCr, "")
Text1.Text = Replace(Text1.Text, vbLf, "")
Text1.Text = Trim(Text1.Text)
'*****************************************************************************
'* Traiter les datas saisie par le scanner, suivant la longueur de la
donnee *
'*****************************************************************************
Select Case Len(Text1.Text)
Case 3, 1
'******************
'* N° de l'ouvier *
'******************
Call Nom_Ouvrier
Case 6
'**************************
'* Numero d'Ordre Magasin *
'**************************
Call Om
Case 8
'***************************************
'* Active l'ongle EQUIPE 1 ou EQUIPE 2 *
'***************************************
Call Equipe
Case 9
'************************************************
'* Effacer la grille et zones pour nouveau O.M. *
'************************************************
Call Nouveau_OM
Case 22
'**************************************
'* Ecriture des donnes dans la grille *
'**************************************
Call Essieux
End Select
'********************************
'* Mise a zero de la zone TEXT1 *
'********************************
Text1.Text = ""
End Sub
bonne programmation
Salva
"Thierry Euzenot" <thierry.euzenot*arobase*gmail.com> a écrit dans le
message de news: %Bonjour,
Je suis en train de développer une application en VBA, sous Excel, qui
doit, lorsque un code barre est lu par un lecteur de code barre, faire
une action.
(Je précise que je ne me suis pas trompé de groupe de discussion, mon
problème est bien de programmation VB ou presque, VB, VBA, c'est presque
pareil sur certains points ^_^ )
Mon problème : comment détecter si l'information de saisie numérique
vient du lecteur de code barre ou du clavier normal de l'ordinateur ? En
effet l'action suivante doit être effectuée uniquement si l'information
provient du lecteur de code barre.
Les données : Lorsque le lecteur de code barre est connecté, un nouveau
clavier est ajouté au profil matériel du panneau de config. J'ai déjà
fait une routine permettant de récupérer la désignation de ce
lecteur/clavier et de vérifier s'il est bien connecté.
Merci par avance pour votre aide.
Thierry