Lancement d'un VBS chaque 10 min

Résolu
hakoko Messages postés 189 Date d'inscription   Statut Membre Dernière intervention   -  
hakoko Messages postés 189 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 "~"

1 réponse

  1.
    hakoko Messages postés 189 Date d'inscription   Statut Membre Dernière intervention   4
     
    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
    0