Sendkeys

[Amandine]

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

 

[Jon_Chninkel]

bonjour


si tu veux utiliser notepad juste pour composer un fihcier texte, je te suggère plutôt d'utilsier la méthode open.

On s'en sert pour ouvrir un fichier en lecture ou en écriture.

L'aide est assez riche à son sujet.

Si cela ne suffit pas, des sites :
<http://dj.joss.free.fr/faq.htm>
<http://perso.wanadoo.fr/frederic.sigonneau>
<http://xlbysteph.free.fr/aideinformatique/actionvba.htm> le mien ;-)

Bye