Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1436 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Ecriture automatique

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Ecriture automatique

n°2057901
roloulou63
L'art d'être autodidacte...
Posté le 18-02-2011 à 18:44:25  profilanswer
 

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.

mood
Publicité
Posté le 18-02-2011 à 18:44:25  profilanswer
 

n°2057902
kiki29
Posté le 18-02-2011 à 19:01:25  profilanswer
 

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
n°2057911
roloulou63
L'art d'être autodidacte...
Posté le 18-02-2011 à 20:41:38  profilanswer
 

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"


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Ecriture automatique

 

Sujets relatifs
formulaire automatique sous vb.netLien automatique sur URL valide
Aide sur l'écriture de scriptLien automatique en fonctione de mots
Script de transfert automatique de fichiers[HTML] Insertion automatique d'un terme dans la barre d'adresse
envoie automatique de faxOptimisation ecriture dans BDD à partir d'un table HTML [résolu]
Access Violation en écritureEcriture automatique d'URL
Plus de sujets relatifs à : Ecriture automatique


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR