Discussion :

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

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

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 :

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

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 :

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

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