VBA - récupération code claviers
Résolu
yrqt
-
yrqt -
yrqt -
Bonjour,
Je souhaiterais récuperer le code d'un clavier.
Je m'explique, j'ai actuellement deux lecteurs de codes barres que j'ai branché sur mon ordinateur portable par liaison USB. Lorsqu'elles sont paramétré, elle apparaisse comme des claviers.
J'ai donc effectué un programme sous Excel afin d'y développer un magasin de produit. Or, j'ai besoin de savoir quel douchette j'appuie actuellement.
Pour cela, je pense qu'il doit y avoir un code me permettant de savoir quel clavier est utilisé à l'instant T, et de ce fait, je saurais utilisé les fonctions adéquat.
Vous remerciant par avance.
Bonne soirée. Cordialement
Yrqt
Je souhaiterais récuperer le code d'un clavier.
Je m'explique, j'ai actuellement deux lecteurs de codes barres que j'ai branché sur mon ordinateur portable par liaison USB. Lorsqu'elles sont paramétré, elle apparaisse comme des claviers.
J'ai donc effectué un programme sous Excel afin d'y développer un magasin de produit. Or, j'ai besoin de savoir quel douchette j'appuie actuellement.
Pour cela, je pense qu'il doit y avoir un code me permettant de savoir quel clavier est utilisé à l'instant T, et de ce fait, je saurais utilisé les fonctions adéquat.
Vous remerciant par avance.
Bonne soirée. Cordialement
Yrqt
2 réponses
-
Bonjour,
une piste par une fonction API.
GetKeyboardLayoutName :
The GetKeyboardLayoutName function retrieves the name of the active keyboard layout.Const KL_NAMELENGTH = 9 Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Private Sub test() Dim strName As String 'Create a buffer strName = String(KL_NAMELENGTH, 0) 'récupérer keyboard layout name GetKeyboardLayoutName strName MsgBox strName End Sub
Voir ce que ça donne.
eric
-
-
Les fonctions API sont des fonctions windows.
Tu copie-colles le code et tu testes pour voir si vraiment tu n'as qu'une seule douchette d'active en même temps, et si elles te retournent 2 codes différents.
Je ne pourrai t'aider plus.
eric -
-
Bonsoir Eric
Excuse moi de te déranger une nouvelle fois, mais j'ai effectuer l'execution de ton code, mais cela ne fonctionne pas. En effet, quel que soit le matériel que j'utilise, il me met "0000040C".
As tu une solution ?
J'ai regarder en parallèle pour récupérer le nom ou autre pour dissocier les deux matériels, mais pas moyens de trouver....
Bonne soirée.
-
-
Sur excel tu n'auras rien je pense.
Dans les fonctions API tu as également GetKeyboardType() mais si c'est le même matériel ils te retourneront la même chose également.
Une suggestion : te faire 2 étiquettes dédiées avec un code particulier que tu scannerais en premier à chaque fois que tu changes de douchette.
Dans le programme dès que tu lis ce code tu sais que ça correspond à l'identification de la douchette et non à un produit.
eric
