Discussion :

[modenofx]

Bonjour à tous les développeurs,

J'ai besoin de votre aide pour quelques lignes de code.

Je me suis créé un programme pour le nom de mes fichiers dans une base de données.
Lorsque j'enregistre ma base de données je fais appel à lui en appuyant simultanément sur les touches CTRL+ALT+DROITE et mon programme s'exécute.

Cependant une fois celui-ci terminé (fini par une input Box) pour être placé dans la bonne fenêtre je dois faire deux fois ALT+TAB et revenir ainsi sur la boite de dialogue de l'enregistreur de fichiers.

Je voudrais une fois mon programme fini être directement placé dans la dernière fenêtre que j'utilisais avant de lancer mon programme.

Si quelqu'un peu m'indiquer le chemin à suivre.

Bon après midi à tous et bonne programmation.

[modenofx]

Bonjour à tous les programmeurs,

Après avoir à me procurer le Script56.CHM, j'ai réussi à coder les quelques lignes qu'il me manquait pour mon programme.

Pour ceux que ça peut intéressé voici ma solution :

J'ai créé l'objet suivant :

Code :

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

1
2
3
4
5
6
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
 
J'ai ensuite simulé la combinaison de touches que je tappais au clavier :
WshShell.SendKeys "%({TAB})"
WshShell.SendKeys "%({TAB})"

Voila le tour est joué

Bonne journée à tous et bonne programmation.