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