'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