Ecriture automatique

Ecriture automatique - VB/VBA/VBS - Programmation

Marsh Posté le 18-02-2011 à 18:44:25    

Bonjour à tous,
 
Je suis un bouquin concernant le début dans les scripts et là je suis dans les sendkeys. J'ai un souci qui est le suivant :
Je lance le script mais la fenêtre bloc-notes ne se met pas au premier plan.
Voici le script
Set MonShell = WScript.CreateObject("WScript.Shell" )
MonShell.Run "notepad.exe"
MonShell.AppActivate "Sans titre - bloc-notes"
MonShell.SendKeys "Essai d'écriture"
 
En revanche, si le bloc-notes est déja ouvert, ca marche... :pt1cable:  
 
Merci par avance de votre aide.

Reply

Marsh Posté le 18-02-2011 à 18:44:25   

Reply

Marsh Posté le 18-02-2011 à 19:01:25    

Salut,ne pratiquant plus VBS depuis longtemps je ne peux que te donner qqs liens
 
en 1er la syntaxe ne me parait pas correcte http://msdn.microsoft.com/en-us/li [...] s.85).aspx
 
http://www.bellamyjc.org/
http://technet.microsoft.com/fr-fr [...] 93612.aspx
http://www.robvanderwoude.com/wshlinks.php
 
sinon via Gog pour ce forum http://www.google.fr/#hl=fr&source [...] 24f3e851ea
 
Un exemple, mais en VBA Excel  


Option Explicit
 
Private Sub OuvrirViaNotePad(sFichier As String)
Dim Rep As String
    Rep = "C:\WINDOWS\SYSTEM32\NOTEPAD.EXE " & sFichier
    Shell Rep, vbNormalFocus
End Sub
 
Sub Sel()
Dim Fichier As Variant
    ChDir ThisWorkbook.Path
    Fichier = Application.GetOpenFilename("Fichier Txt (*.txt), *.txt" )
    If Fichier <> False Then OuvrirViaNotePad (Fichier)
End Sub


Message édité par kiki29 le 18-02-2011 à 19:06:48
Reply

Marsh Posté le 18-02-2011 à 20:41:38    

Salut merci pour ta réponse. J'ai trouvé mon bonheur sur le net.
Voici ce qu'il me manquait : WScript.Sleep 100
Set MonShell = WScript.CreateObject("WScript.Shell" )
'Ouverture du bloc note via la méthode RUN'
MonShell.Run "notepad.exe"
'Attente afin de pouvoir mettre la fenêtre au 1er plan'
WScript.Sleep 100
'On place l'application Bloc-Notes au premier plan'
MonShell.AppActivate "Sans titre - bloc-notes"
'Ecriture du texte de façon automatique'
MonShell.SendKeys "Sans les mains"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed