Faire apparaitre le clavier virtuel windows

Bonjour,

J'ai créer un petit programme, et maintenant je veux le lancer avec un écran tactile.
Je cherche à faire apparaitre avec un code le clavier windows lorsque l'on clique sur un textbox ou sur un commandbutton.
Afin de ne pas alourdir mon programme, je ne fait pas de clavier "maison". Le Clavier virtuel windows me va très bien.
J'ai essayé de mettre le osk.exe, j'ai essayé le sendkeys ctrl+win+O, mais rien fonctionne.
Je pense que je m'y prend mal.
Si quelqu'un à une solution?
merci par avance

Bonjour Julien B42

Tu peux essayer

Private Sub UserForm_Activate()
  ' Open virtual keyboard
  keyboard = Shell("CMD /C " & """" & "C:\Windows\System32\osk.exe" & """")
End Sub

@+

Bonjour Bruno M45,

J'avais déjà essayé ce code et je viens de retesté, mais ça ne fonctionne pas.

l'icone CMD apparait dans la barre de tache, mais disparait aussitôt.

une autre idée?

@+

Bonjour Julien B42, bonjour à tous,

J'utilise ce code, un peu lourd mais qui fonctionne chez moi.

À essayer !

AL 22

220clavier-visuel.xlsm (15.60 Ko)

Bonjour AL22,

Merci pour ta réponse

Ton code à l'air de fonctionner, par contre si je n'abuse pas trop, car je ne comprend pas trop, comment l'intégrer sur un commandbutton? Je te joint un fichier

Julien

42clavier-test.xlsm (14.91 Ko)

Re

Voici ton fichier modifié. Cela fonctionne t-il chez toi ?

A+

AL 22

151clavier-test.xlsm (20.23 Ko)

Re,

Merci beaucoup, j'avais trouvé en même temps que ta réponse avec un code différent

Clavier_visuel.KeyboardOpen

les 2 codes fonctionnent

a+

Julien

Bonsoir …

Avec ses qualités mais aussi ses défauts*, adapté pour un formulaire, un Clavier virtuel ouvert par un bouton d’option (nommé O dans le classeur) pour l’utiliser dans le contrôle Textbox (nommé Tx avec une « Multiligne » possible) :

clavier usf

*encre un x pour lui claquer le bec en gardant la phrase !

Bonsoir @ tous !

Merci @ vous ! Je ne connaissais pas !

@ bientôt

LouReeD

AL22 Attention

Re

Voici ton fichier modifié. Cela fonctionne t-il chez toi ?

A+

AL 22

151clavier-test.xlsm (20.23 Ko)

Votre code ne fonctionne pas sur une version 64bits

2021 03 18 00h10 55

@+

Bonjour,

je suis passé à excel 2019 et effectivement BrunoM45 a raison, le code ne fonctionne pas en 64bits.

Je n'ai pas trouvé le code qui va bien. Est-ce que quelqu'un à une solution?

@+

Julien

Bonsoir,

la méthode d'Ordonc fonctionne !

@ bientôt

LouReeD

Bonjour,

Effectivement, si on veut juste faire apparaitre le clavier il suffit juste :

Shell ("cmd /c c:\windows\system32\osk.exe")

Bonne journée

Julien

Bonsoir,

alors que vouliez vous faire avec le code qui apparemment ne marche pas sous Win 64 ?

Sinon au niveau du code (à essayer) je crois qu'en plus de VBA7 vous pouvez tester si Win64 :

#If VBA7 Or Win64 Then

@ bientôt

LouReeD

Rechercher des sujets similaires à "apparaitre clavier virtuel windows"