Lancement d'un VBS chaque 10 min

Résolu/Fermé

hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 - Modifié par hakoko le 24/05/2013 à 12:07
hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 - 25 mai 2013 à 01:16

Bonjour,

j'ai crée une application en VB script qui enregistre un fichier , ce qui me reste c'est comment fermer ce fichier ouvert et exécuter le script chaque 10 mingenre ( debut du scripte "etiquette" et à la fin de du scripte "sleep 60000" puis "goto etiquette"), quelqu'un à une idée du code à ajouter svp. merci d'avance.

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.AppActivate "Microsoft Excel"

WScript.Sleep 2000

WshShell.SendKeys "^s"

WScript.Sleep 2000

WshShell.SendKeys "~"

WScript.Sleep 2000

WshShell.SendKeys "download2.CSV"

WScript.Sleep 2000

WshShell.SendKeys "~"

A voir également:

Lancement d'un VBS chaque 10 min
Clé windows 10 gratuit - Guide
Windows 10 gratuit - Guide
Mon pc s'allume mais ne démarre pas windows 10 - Guide
Windows 10 iso - Guide
Licence windows 10 - Guide

1 réponse

Réponse 1 / 1

hakoko Messages postés 187 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 21 mars 2024 3
25 mai 2013 à 01:16

Bonjour, j'ai réussi à le faire:

Set WshShell = WScript.CreateObject("WScript.Shell")

for i= 1 to 2

WshShell.AppActivate "Microsoft Excel"

WScript.Sleep 2000

WshShell.SendKeys "^s"

WScript.Sleep 2000

WshShell.SendKeys "~"

WScript.Sleep 2000

WshShell.SendKeys "download2.CSV"

WScript.Sleep 2000

WshShell.SendKeys "~"

WScript.Sleep 2000

WshShell.SendKeys "% F4"

i=i-1

WScript.Sleep 60000

next

Newsletters