[gilbert_RGI]

Bonjour

quand je fais

Sub calculette()
calc = Shell("C:\WINDOWS\system32\CALC.EXE", 1)
AppActivate calc
End Sub

j'ai bien la calculette en écran mais quand je fais

Sub claviervisuel()
'ouverture du clavier virtuel
clavier = Shell("C:\Windows\System32\OSK.exe", 1)
AppActivate clavier
End Sub

impossible d'avoir le clavier virtuel
OSK est bien présent

Merci de vos suggestions

RGI