XL 2016 appel clavier Visuel Textbox VBA

[GUYANA76]

Bonjour , je dispose d'un formulaire ci-joint .
Mon but serait d'appeler pour les textbox le clavier visuel.
Après plusieurs recherche et test je ne trouve pas de solution. (je débute dans VBA )
pouvez-vous m'éclairer sur le sujet ?
Merci

 

[sylvanu]

Bonjour Guyana,
Une piste peut être, le fichier Clavier.xlsm du site suivant:

Création clavier UserForm

Je travaille sur un projet qui consiste à répertorier des check listes sur un fichier Excel. Le remplissage actuel de celles-ci se fait sur format papier et...

forum.excel-pratique.com

 

[GALOUGALOU]

bonsoir guyana76 bonsoir le forum
en vba dans un module
Sub test()
retval = Shell("cmd /c osk")
End Sub

dans l'userform
Private Sub LaTextbox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
retval = Shell("cmd /c osk")
End If
End Sub
cordialement
galougalou

 

[sylvanu]

Bonjour Guyana, Galougalou,
J'ai tout essayé comme combinaison et ça marche pas sous XL2007.
C'est comme si le clavier apparaît puis disparaît. On voit juste un clignotement.
( A noter que sous Executer "C:\Windows\System32\osk.exe" ça marche impeccable )
Connaîtriez vous la cause ?
Guyana, ça marche sous 2016 ?

 

[GALOUGALOU]

bonsoir sylvanu
je suis perplexe je n'ai pas la solution immédiate
ca marche sous office 2010 avec w10
@+

 

[patricktoulon]

Bonjour Guyana, Galougalou,
J'ai tout essayé comme combinaison et ça marche pas sous XL2007.
C'est comme si le clavier apparaît puis disparaît. On voit juste un clignotement.
( A noter que sous Executer "C:\Windows\System32\osk.exe" ça marche impeccable )
Connaîtriez vous la cause ?
Guyana, ça marche sous 2016 ?

c'est bien le soucis avec shell et 2016 même en 32 il appelle la version 64 des fois alors que 2007 32 apelle toujours les versions 32 donc chemin complet pour etre sur

plusieurs méthodes

'version 1 avec api
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub ouvre_clavier_virtuel1()
        ShellExecute Application.hwnd, "open", "osk.exe", "", "", 1
End Sub

'version2
Sub ouvre_clavier_virtuel2()
  Shell "cmd /c C:\Windows\System32\osk.exe", vbNormalFocus
End Sub

'version3
Sub ouvre_clavier_virtuel3()
 CreateObject("wscript.shell").Run "C:\Windows\System32\osk.exe"
End Sub

et enfin pour le fermer

' et pour fermer
Sub ferme_clavier_virtuel()
 Dim wmi As Object, query$, osks
    Set wmi = GetObject("winmgmts:root\cimv2")
    query = "select * from win32_process where name=""osk.exe"""
    For Each osks In wmi.execquery(query)
        osks.Terminate
    Next
    Set wmi = Nothing
End Sub

😉

 

[Staple1600]

Bonsoir le fil

Aucun des codes de ce fil ne fonctionne sur mon PC
(XL2K13 32bits W10 64bits)

mais c'est pas grave 😉
Touche Windows+ CTRL + O fonctionne

Pour info: sur W10, il y aussi tabtip.exe

 

[patricktoulon]

bonsoir @Staple1600
essaie avec le chemin complet
CreateObject("wscript.shell").Run "C:\................\tabtip.exe"

 

[Staple1600]

Re

J'avais déjà essayé.
En vain.
J'ai un beau message d'erreur

 

[GUYANA76]

bonsoir guyana76 bonsoir le forum
en vba dans un module
Sub test()
retval = Shell("cmd /c osk")
End Sub

dans l'userform
Private Sub LaTextbox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
retval = Shell("cmd /c osk")
End If
End Sub
cordialement
galougalou

Bonsoir, malheureusement ca ne fonctionne pas sur mon PC , mais c'est peut-être lié a des paramètres Windows.
J'attend une tablette sous W10 peut-etre le résultat bon . Je vais essayer de passer mon pc en mode tactile.

 

[GUYANA76]

c'est bien le soucis avec shell et 2016 même en 32 il appelle la version 64 des fois alors que 2007 32 apelle toujours les versions 32 donc chemin complet pour etre sur

plusieurs méthodes

'version 1 avec api
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub ouvre_clavier_virtuel1()
        ShellExecute Application.hwnd, "open", "osk.exe", "", "", 1
End Sub

'version2
Sub ouvre_clavier_virtuel2()
  Shell "cmd /c C:\Windows\System32\osk.exe", vbNormalFocus
End Sub

'version3
Sub ouvre_clavier_virtuel3()
CreateObject("wscript.shell").Run "C:\Windows\System32\osk.exe"
End Sub

et enfin pour le fermer

' et pour fermer
Sub ferme_clavier_virtuel()
Dim wmi As Object, query$, osks
    Set wmi = GetObject("winmgmts:root\cimv2")
    query = "select * from win32_process where name=""osk.exe"""
    For Each osks In wmi.execquery(query)
        osks.Terminate
    Next
    Set wmi = Nothing
End Sub

😉

je suis un boulet j'ai essayer les 3 versions des que j'entre dans la textbox je quitte excel et je reveins a la page d'acceuil

 

[GALOUGALOU]

bonsoir le forum
une idée comme ça
si la demande du clavier virtuel est lié à une difficulté d'utilisation de l'ordi, pour ne pas lui affecter un raccourci sur le bureau, pour un appel avec la souris ou avec l'écran tactile

pour le créer
double clic sur disque local C /windows/systeme 32
-CHERCHEZ EN BAS PARMIS LES FICHIER,et pas les dossier jaunes en haut de liste
-chercher en bas de liste bien après les dossiers le fichier nommé "osk";( apres le fichier "opengl32.dll" )
-clice droit
-creer racourci
cordialement
galougalou

 

[GALOUGALOU]

désolé pour les fautes de frappe j'ai posté trop vite

 

[Staple1600]

Re

=>GALOUGALOU
Et pourquoi pas le raccourci clavier que j'évoquais dans le message#7 ?
Beaucoup plus rapide et plus simple, non ? 😉

 

[GALOUGALOU]

tout a fait staple1600
mais j'ai imaginé que l'utilisateur avait des difficultés avec son clavier et ne se servait que de la souris.
mais peut-être que je suis trop imaginatif 🙄
cordialement
@+