Lancement d'un VBS chaque 10 min
Résolu
hakoko
Messages postés
190
Date d'inscription
Statut
Membre
Dernière intervention
-
hakoko Messages postés 190 Date d'inscription Statut Membre Dernière intervention -
hakoko Messages postés 190 Date d'inscription Statut Membre Dernière intervention -
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 "~"
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é d'activation windows 10 - Guide
- Vbs windows - Accueil - Optimisation
- Restauration systeme windows 10 - Guide
- Windows 10 ne démarre plus - Guide
- Windows 10 gratuit - Accueil - Mise à jour
1 réponse
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
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