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

[patricktoulon]

re
tu dois etre en office 64
essaie ca

Code :

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

Public Declare ptrsafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Longptr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Longptr) As Longptr

[Arkham46]

Bonjour,

Il ne faut pas mettre des longptr au hasard.

http://arkham46.developpez.com/artic...ice/vba64bits/

[patricktoulon]

Bonjour arkham
oui j'ai peut être fait une erreur sur le dernier
normalement il me semble que c'est pour les handles
mais comme je ne code pas en 64 je ne peux en dire plus

[Arkham46]

oui j'ai peut être fait une erreur sur le dernier
normalement il me semble que c'est pour les handles
mais comme je ne code pas en 64 je ne peux en dire plus

Dans ce cas précise le dans ta réponse, donne un lien vers le tuto, mais ne sort pas une déclaration écrite au hasard comme si tu maitrisais le sujet.

[patricktoulon]

re
je l'ai trouvé dans diverse source écrite de la même façon

et j'ai bien précisé essaie ca quand je suis sur je dis pas d'essayer

[chrtophe]

re
tu dois etre en office 64
essaie ca

Code :

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

Public Declare ptrsafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Longptr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Longptr) As Longptr

T'as pas encore plus compliqué ?

utiliser simplement la fonction VBA Shell devrait suffire.

Par contre, attention au focus.

[patricktoulon]

re

si tu avais regardé le post en entier tu aurais vu que je l'ai déjà proposé et testé sur 2007 (post #2)

[chrtophe]

re

si tu avais regardé le post en entier tu aurais vu que je l'ai déjà proposé et testé sur 2007 (post #2)

Autant pour moi, mais alors pourquoi proposer en #7 un code inadapté ?

[patricktoulon]

re
parce que visiblement chez lui W10 avec shell et le bon chemin de l'exe ,la ligne plante
alors que chez moi ca fonctionne W7 64- office (2007/2013) en 32 bits
et c'est pas moi qui est proposé la piste des api c'est lui même qui l'a trouvé
j'ai simplement tenté de corriger la déclaration de l'api en 64

[clementmarcotte]

Bonjour,

Apparemment, quelqu'un aurait trouvé la réponse dans ce fourbi:

https://social.msdn.microsoft.com/Fo...ows-10-via-vba

C'est une des secondes propositions dans une réponse, mais il ne dit pas laquelle, ni à qui il répond. Et puis, il y a deux questions dans une. Et la seconde question, c'est le clavier avec Access.

Et ma batterie baisse et j'ai d'autres chats à fouetter.

[clementmarcotte]

Microsoft aurait solutionné des problèmes de cohabitation entre VB6-VBA-VBScript et les plus anciennes versions de winscrap 10

https://mspoweruser.com/microsofts-l...dows-10-v1903/

Et puis je rappelle au zouf qui n'a pas aimé ma dernière réponse que cela fait un bout de temps que j'ai pratiquement abandonné VBA et que je suis entré dans la modernité en passant à un autre langage. Et puis, en passant, dans ma réponse précédente, au lieu d'être une bataille de répondeurs de Développez, c'est une bataille de répondeurs de Microsoft. Cela fait changement.

[Invité]

Et puis je rappelle au zouf qui n'a pas aimé ma dernière réponse que cela fait un bout de temps que j'ai pratiquement abandonné VBA et que je suis entré dans la modernité en passant à un autre langage. Et puis, en passant, dans ma réponse précédente, au lieu d'être une bataille de répondeurs de Développez, c'est une bataille de répondeurs de Microsoft. Cela fait changement.

Rien compris.... et n'a rien à voir avec le sujet de la discussion.
Il faut juste ne pas oublier que ce qui est soi disant moderne maintenant sera prochainement désuet...
Alors cette notion du "modernisme" à l'échelle du temps me fait toujours sourire...
Cordialement