Ouverture d'un excutable VBA

Bonjour,

J'aimerais ouvrir le clavier virtuel à la d'une commande tel que ci dessous :

Private Sub CommandButton1_Click()

    Shell ("C:\Windows\System32\osk.exe")

End Sub

Sauf que je n'arrive tout simplement pas à ouvrir le clavier alors que les autres programmes tel que l'invitation de commande fonctionne parfaitement.

Comment puis-je procéder ?

Merci pour votre temps :-)

Bonjour

Une solution ici :

https://forum.excel-pratique.com/excel/lancer-un-exe-a-partir-d-une-macro-1329#p4519

Fred

Bonjour Fred,

Merci beaucoup pour votre réponse.

Cependant je retrouve exactement le même soucis que d'habitude.

Je ne sais pas si mon exécutable est protégé mais cela ne fonctionne pas pour ma part.

Et le chemin du fichier est également juste.

Jordan.

Bonjour à tous,

Private Sub CommandButton1_Click()
 RetVal = Shell("cmd /c osk")
End Sub

fonctionne chez moi

A+

Re

une solution...

a voir :

RetVal = Shell("cmd /c C:\Windows\System32\osk.exe", vbNormalFocus)

Fred

Edit : Bonjour AlgoPlus... Même idée...

Re

merci à vous deux,

Cependant je vois l'invitation de commande qui s'ouvre mais elle ne reste cependant pas ouverte.

J'ai essayé avec pleins d'autres programmes et c'est bien le seul avec qui cela ne fonctionne pas. (en essayant d'ouvrir le clavier)

Je ne sais pas pourquoi.

Re

JordanKuentz a écrit :

Je ne sais pas pourquoi.

Moi non plus.... Désolé

Fred

Bonjour,

Merci pour vos aides

Bonne semaine à vous !

Est ce résolu ?

si oui, comment ?

Bonjour AlgoPlus,

Non le post n'est toujours pas résolu.

Je vais essayer le script avec un autre ordinateur ce soir.