clavier virutel windows

paskikic · 23 Novembre 2016

bonjour a vous tous les Xlnautes

je cherche a ouvrir mon clavier windows via excel lorsque je clic sur une cellules, j ai cherche sur le web mais pas de solutions trouvees.

ils partent tous de Shell "C:\WINDOWS\system32\osk.exe" mais je n arrive pas a le lancer!!!

qqn aurait il une idee

MERCI encore

phlaurent55 · 23 Novembre 2016

Bonjour paskikic

sans doute des réponses en cliquant ci-dessous
https://www.google.be/?gws_rd=cr&ei=lxZqUt2CHcTC0QXVloGQAQ#q=C:\WINDOWS\system32\osk.exe&lr=lang_fr

à+
Philippe

paskikic · 23 Novembre 2016

salut Philippe

je viens de faire un tour sur la page et il n y a pas de solution a mon pb merci a toi quand meme.
ce que je n arrive a comprendre c esr que le code fonctionne avec calc.exe

Yurperqod · 23 Novembre 2016

Bonjour le forum

Quelle version de Windows utilisée?

Avec Windows 7, ces deux macros marchent.

VB:

Option Explicit
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 macro1()
ShellExecute 0, vbNullString, "osk.exe", vbNullString, "C:\", 1
End Sub
Sub macro2()
Dim appli
appli = Shell("c:\windows\system32\osk.exe", 1)
End Sub

paskikic · 23 Novembre 2016

salut Ce lien n'existe plus
Ce lien n'existe plus
moi j ai windows10 et les 2 ne fonctionnent pas la macro 1 me dit impossible de demarrer le clavier
quand a la 2 dit erreur d execution 5

merci quand meme

Yurperqod · 23 Novembre 2016

Avec Windows 10, on peut activer ou désactiver le clavier virtuel.

Voir dans les paramètres Windows.

On trouve des explications dans Google.

Est-ce que le clavier s'affiche si tu le lances manuellement?
Touche Windows+R puis inscrire osk.exe puis appuie sur la toucher ENTREE.

paskikic · 23 Novembre 2016

re Yurperqod

ouais en le lancant de l executif il part

Yurperqod · 24 Novembre 2016

Bonjour le forum

Pour Windows 10, tester cette macro (écrite au départ pour Windows 8)

VB:

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

#If VBA7 Then
Public Declare PtrSafe 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
#Else
Public 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
#End If

Sub openTouchKeyboard()
  Dim RetVal As Long
  On Error Resume Next
  RetVal = ShellExecute(0, "open", "C:\Program Files\Common Files\microsoft shared\ink\TabTip.exe", _
  0, "C:\Program Files\Common Files\microsoft shared\ink\", SW_SHOWMAXIMIZED)
End Sub

Public Function closeIfOpen() As Boolean
Dim objWINMGMTS As Object
Dim objApps As Object
Dim objApp As Object
Set objWINMGMTS = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objApps = objWINMGMTS.ExecQuery("select * from win32_process where name='tabtip.exe'") 'or osk.exe depending on kb in use
For Each objApp In objApps
objApp.Terminate
Next
End Function

paskikic · 24 Novembre 2016

salut Ce lien n'existe plus

malheureusement, ca s execute mais n ouvre pas le clavier et me met un message d erreur me disant impossible d ouvrir le clavier virtuel alors qu il est bie present et se lance de exe

Yurperqod · 24 Novembre 2016

Il faut demander à un membre du forum qui est sous Windows 10 de tester ou faire des recherches avec Google sur Tabtip.exe et Windows 10.

david84 · 24 Novembre 2016

Bonjour,
pour afficher le clavier en passant par ShellExecute et par WMI (testé sous Windows 10) :

Code:

Const SW_SHOW = 1

#If Win64 Then
Public Declare PtrSafe 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
#Else
Public 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
#End If

Sub openKeyboard()
  Dim RetVal As Long
  On Error Resume Next
  RetVal = ShellExecute(0, "open", "osk.exe", 0, "%windir%\system32\osk.exe", SW_SHOW)
End Sub

Pour le fermer :

Code:

Sub closeKeyboard()
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process where caption='osk.exe'", , 48)
For Each objItem In colItems
    objItem.Terminate
Next
End Sub

A+

david84 · 24 Novembre 2016

On peut également plus simplement passer par Shell pour afficher le clavier :

Code:

Shell "cmd /c C:\Windows\System32\osk.exe,1"

A+

paskikic · 25 Novembre 2016

bonjour a vous tous

toutes les solutions propose me ramene toujours au message : IMPOSIBLE DE DEMARRER LE CLAVIER VIRTUEL

mutzik · 25 Novembre 2016

bonjour à tous,

as-tu bien vérifié ou se trouve ton osk.exe, et adapter le chemin dans la macro

Yurperqod · 25 Novembre 2016

Bonjour le forum

David84
Ton code est une adaptation pour osk.exe de celui posté dans mon message N°8
Comme tu as Windows 10, tu peux tester le code que j'ai posté, stp?

Est-ce que ca marche avec tabtip.exe ?

clavier virutel windows

paskikic

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

paskikic

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

paskikic

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

paskikic

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

paskikic

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

david84

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

paskikic

XLDnaute Occasionnel

mutzik

XLDnaute Barbatruc

Yurperqod

XLDnaute Occasionnel

Discussions similaires