Sendkeys

Bonjour à tous. J'espère qu'une fois de plus vous pourrez venir à mon secours. Voici mon problème, je souhaite ouvrir un bloc-note et faire un search and replace dessus...

J'utilisais ceci
Shell ("D:\WINNT\NOTEPAD.EXE " & fileToOpen1)
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "%{TAB}", True
SendKeys "%{TAB}", False
SendKeys "%s", True
SendKeys "r", True
SendKeys ",", True
SendKeys "%a", True
SendKeys "{ESC}", True
SendKeys "%f", True
SendKeys "s", True
SendKeys "%{F4}", True
Mais ca ne marche pas sur toutes les machines (ALT+TAB ne semble pas bien fontionner).

J'essaye de procéder autrement donc en faisant
MyAppID = Shell("NOTEPAD", 1)
AppActivate MyAppID, True
SendKeys ("salut")

Mais là j'ai encore moins de résultat car rien ne se passe...

Je commence à désespérer, j'ai bisouiller dans tous les sens toutes les formules mais je n'obtiens pas le résultat escompté...