Senkey inactif

Question

Bonjour a tous
J’ai un problème que je n’arrive pas à résoudre :
J’ai une feuille qui lance une application installée sur l’ordinateur
Cette dernière ouvre un msgbox contenant un bouton [OK]
Bouton qui est par défaut
Quand je vais [ENTRE] au clavier le MsgBox se ferme et le programme continu !
Ce que je voudrais, c’est automatiser cette action par une procédure
Hors si j’utilise sendkey « {ENTRE} »,True
Comme il est dans mon application il n’agit pas sur le MsgBox
Car l’appel de la fonction fait perdre le focus du Msgbox

vettoma · Answer

Bonjour, en r&#233;ponse &#224; votre question, voici un extrait d'un petit
programme qui lan&#231;e PaintShopPro (qui au d&#233;marrage affiche une MSGBox
"astuce du jour")

Test&#233; et cela marche (des fois) ou pas avec tous les programes (ex : mspaint => impossible)

la commande "sendkeys" semble capricieuse

.......

prog = "C:\Program Files\Jasc Software Inc\Paint Shop Pro 7\psp.exe"

RetourValue = Shell(Prog, 1)

AppActivate RetourValue

SendKeys "{ENTER}" 'ferme le dialogue "astuce du jour"
.........

En esp&#233;rant que cela vous aide &#224; r&#233;soudre votre probl&#232;me.


Vettoma

Senkey inactif

1 réponse

Discussions similaires