Commande sendkeys blocnote

Bonjour j'essaie d'utiliser la fonction sendkeys sans succès pourriez vous me dire ce qui ne va pas dans mon code ?

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Notepad()   Dim txtName As String Dim notepadID   notepadID = shell("NOTEPAD.EXE " & txtName, 1) AppActivate notepadID, True   SendKeys "a" & "{ENTER}", True   End Sub

---

Bonjour,

Supprime le true

Code:

---

SendKeys "a" & "{ENTER}"

---

Toujours rien !

et qu'est ce qui ne va pas, parceque même le code initiale fonctionne sur mon poste
Notepad s'ouvre et "a" est écrit avec un retour chariot

Alors là pour le coup c'est un mystère. Le programme lance bien le bloc note mais rien n'apparait dedans.
Est ce que ca ne serait pas lié à un problème de sécurité qui empeche ce genre de commande ?

Personne n'a une idée car ca me serait bien utilie de pouvoir utiliser cette commande.

Merci

bjr,

c'est probable que si tu es sous vista ou seven il y ait un blocage de sécurité pour envoyer des touches à une autre application

à tout hasard, tu peux essayer avec WScript :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Notepad()   Dim txtName As String Dim notepadID Dim WshShell As Object   Set WshShell = CreateObject("WScript.Shell")   notepadID = Shell("NOTEPAD.EXE " & txtName, 1) AppActivate notepadID, True   WshShell.SendKeys "a" & "{ENTER}", True   End Sub

---

de plus le sendkey est rarement (jamais ?) la bonne solution à un problème ... dans ton cas il suffit d'écrire dans un fichier texte et puis l'ouvrir avec NotePad. ..

dans d'autres cas il faut adapter en étudiant le fonctionnement du programme à utiliser ...;)

bonjour

bonjour


bill t'a donné une solution qui me semble bien

maintenant si tu veux continuer avec senkey

peut être qu'il faudrais mettre le focus la fenêtre "notpad"
c'est possible que sa soit ça

pour cela il te faudra utiliser les apis le "setfocus" de la (user32.dll)

mais comme je te l'ai déjà dis la solution de bill est beaucoup mieux


tu a une approche ici