Changer le langage du clavier en cours d'utilisation
Bonjour,
Je suis entrain de transcrire une application "ACCESS" sous "EXCEL".
Mes connaissances EXCEL étant pratiquement nulle, je me suis inspiré d'un modéle trouvé sur le net pour créer un formulaire.
Pour compléter une TEXTBOX, j'ai besoin de changer de langage, en ACCESS ça donne :
Code:
1
2
3
| Public Declare Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, flag As Boolean) As Long
Public Const RU = 1092
Public Const FR = 1036 |
appelé de cette manière:
Code:
1
2
3
| Private Sub LocRU_GotFocus()
Call ActivateKeyboardLayout(RU, 0)
End Sub |
La transcription dans EXCEL me donne une erreur dans la ligne "declare function" :
Citation:
Erreur d'exécution "453"
Point d'entrée ActivateKeyboardLayout d'une DLL introuvable dans user32.dll
Est ce que la transcription est correcte ou est ce qu'il y a une autre manière de faire ?
Merci de vos réponses.
JCB
