Commande sendkeys blocnote

[F.Salenko]

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

[jfontaine]

Bonjour,

Supprime le true

Code :

SendKeys "a" & "{ENTER}"

[F.Salenko]

Toujours rien !

[jfontaine]

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

[F.Salenko]

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

[Arkham46]

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

[bbil]

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

[patricktoulon]

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