Discussion :

[Pluplume]

Bonjour à tous ,

Je vous sollicite une nouvelle fois sur un problème de macro .

A l'ouverture de mon fichier excel j'ai 3 input box qui se suivent jusque là aucun souci.

Ensuite dans la feuille 1 j'ai une macro qui permet d'ouvrir un clavier créer via VBA afin de saisir des valeurs dans des cellules définies.

Et maintenant ce que je voudrais pouvoir faire c'est qu'à l'ouverture du fichier , mon premier inputbox apparaissent et le clavier s'active afin de pouvoir y saisir ma valeur via ce clavier VBA et non par le clavier de l'ordinateur.

Je vous mets ci-joint un fichier d'exemple

Merci à vous !
testclavierinputbox.xlsm

[patricktoulon]

bonjour
ton faux clavier virtuel a t il quelque chose de particulier ?
sinon Windows en possède déjà un que tu peux lancer par vba
testé sur Windows 7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Ouvrir_Le_clavier_virtuel()
    Shell ("C:\\Program Files\\Common Files\\Microsoft shared\\ink\\TabTip.exe"), vbNormalFocus
End Sub

[Pluplume]

Merci de votre réponse

En faite j'ai créé un clavier sous VBA car justement je n'arrivais pas ouvrir le Clavier visuel windows.

J'ai tenté votre code mais cela ne fonctionne pas , ci-dessous le message d'erreur :

"erreur d'exécution 5 : Argument ou appel de procédure incorrect "

Je suis preneuse si vous avez un code pour le clavier visuel windows cela simplifierait tellement les choses

[patricktoulon]

bonjour
menu demarrer, dans l'encart blanc tu tape tabtip si il apparait un tabtip tu clique droite ,propriété , copie le chemin de cible

[Pluplume]

En procédant comme tu m'as dit je retrouve le même chemin que toi .

et j'ai retenté et toujours le même message d'erreur.

En fouillant sur internet je constate que beaucoup d'utilisateur ont ce même problème avec Windows 10.... cependant je ne trouve la réponse nulle part

[Pluplume]

Je viens de trouver ceci qui apparemment aurait marché pour un utilisateur windows 10

Cependant lorsque j'intègre ce code dans ma feuille , la première ligne est en rouge m'indiquant une erreur .. Saurais-tu pourquoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public 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
 
Function openclaviervir()
ShellExecute 100, "open", "C:\Program Files\Common Files\microsoft shared\ink\TabTip.exe", "", vbNull, 5
End Function
 
Private Sub Utilisateur_Click()
        Call openclaviervir
End Sub