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 CLAVIERVIRTUEL()
Dim strOS$, tOS$: Dim RetVaL
strOS = Application.OperatingSystem
tOS = Trim(Mid(strOS, InStr(1, strOS, ")") + 1, 255))
Select Case tOS
Case "NT 6.00"
ShellExecute 0, "open", "osk.exe", 0, 0, 1
Case "NT 5.01"
RetVaL = Shell("C:\WINDOWS\system32\osk.exe", 1)
End Select
End Sub