ouverture inputbox puis ouverture d'une seconde macro

Version imprimable

14/08/2019, 12h15
Pluplume

1 pièce(s) jointe(s)

ouverture inputbox puis ouverture d'une seconde macro

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 !
Pièce jointe 497537
15/08/2019, 15h25
patricktoulon

re
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:

1 2 3 Sub Ouvrir_Le_clavier_virtuel() Shell ("C:\\Program Files\\Common Files\\Microsoft shared\\ink\\TabTip.exe"), vbNormalFocus End Sub
16/08/2019, 09h38
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 :lol: cela simplifierait tellement les choses ;)
16/08/2019, 11h05
patricktoulon

re

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
16/08/2019, 11h20
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 :calim2:

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:

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

16/08/2019, 12h17
patricktoulon

RE

re
tu dois etre en office 64
essaie ca

Code:

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
16/08/2019, 12h24
Arkham46

Bonjour,

Il ne faut pas mettre des longptr au hasard.

http://arkham46.developpez.com/artic...ice/vba64bits/
16/08/2019, 13h39
patricktoulon

re

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
16/08/2019, 20h56
Arkham46

Citation:

Envoyé par patricktoulon

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.
17/08/2019, 00h56
patricktoulon

re

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
17/08/2019, 09h35
Christophe

Citation:

Envoyé par patricktoulon

re
tu dois etre en office 64
essaie ca

Code:

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.
17/08/2019, 23h35
patricktoulon

re

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)
18/08/2019, 11h21
Christophe

Citation:

Envoyé par 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)

Autant pour moi, mais alors pourquoi proposer en #7 un code inadapté ?
18/08/2019, 12h11
patricktoulon

re

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
18/08/2019, 17h15
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.
20/08/2019, 00h31
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.
20/08/2019, 06h25
Invité

Citation:

Envoyé par clementmarcotte

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. :calim2:
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

Fuseau horaire GMT +2. Il est actuellement 16h09.