J ai créer une application access 2003 ou l on utilise une douchette a code barre mais le soucis il arrive que la touche MAJ soit activé et cela change la lecture de la douchette. D ou ma question je voudrais
'patricktoulon
#If VBA7 Then 'vba7 pour 32/64 bits
Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal myKey As LongPtr) As Integer
#Else 'vb6 2007 et inférieur
Private Declare Function GetKeyState Lib "user32" (ByVal myKey As Long) As Integer
#End If
Private Const KeyCapsLock = &H14
Private Sub Workbook_Open(): Me.capslock: End Sub
Public Sub capslock()
If Not GetKeyState(KeyCapsLock) Then CreateObject("wscript.shell").SendKeys "{CAPSLOCK}"
End Sub