Fermer le clavier virtuel Windows

Bonjour à tous,

A l'ouverture d'un fichier excel, je fais apparaitre le clavier virtuel windows.

J'aimerai pouvoir le fermer automatiquement lorsque je ferme le fichier.

Existe t-il un code pour faire cela ?

Bonjour toutes et tous

@Fabien

j'ai trouvé ce code merci au codeur

j'ai testé fonctionnel, il ferme pour cela, il faut mettre un bouton de commande (j'ai mis bouton Active X) + le code d'une nouvelle fonction dans la feuille en question, merci à F

Option Explicit

Private Sub CommandButton1_Click()
    KillProcess "osk.exe"
End Sub

Public Function KillProcess(ByVal ProcessName As String) As Boolean
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process where name='" & ProcessName & "'"
    For Each oproc In svc.execquery(sQuery)
        oproc.Terminate
    Next
    Set svc = Nothing
End Function

crdlt,

André

Bonjour …

Pour ceux qui sont partisans de « Quand on l’ouvre, il savoir la fermer (la parenthèse) ! » , un extrait de l’utilisation du clavier virtuel.

Private Sub Workbook_Open()
    If MsgBox("l'utiliser ici ?", vbYesNo, "Clavier virtuel ...") = 7 Or ActiveCell.Count > 1 Then Exit Sub
    Dim Tx
    Tx = Shell("cmd /c c:\windows\system32\osk.exe")
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
    If MsgBox("l'utiliser ici ?", vbYesNo, "Clavier virtuel ...") = 7 Or R.Count > 1 Then Exit Sub
    Dim Tx
    Tx = Shell("cmd /c c:\windows\system32\osk.exe")
End Sub

Bonjour André,

Merci beaucoup à toi et au codeur...

Cela fonctionne parfaitement

Bonne journée