Exécution chronométrée

[loto]

Bonsoir,

Je suis en train de travailler à la construction d'une bdd alimentée par un formulaire en usrform..

Je me/vous pose 2 questions (j'espère que vous acceptez les 2 problèmes dans le même message) :

1. Est-il possible de progammer qu'une action s'exécute après un certain délai si elle n'a pas était activée manuellement (pour faire par ex un reset d'une entrée si rien ne s'est passé depuis 5 min)

2. Je souhaiterai dissocier le formulaire de saisie de la base excel. Comment pourrais-je faire ça? Le plus simple serait de l'exécuter à partir une icone ou petit programme exécutable ?..un vbscript?

Merci pour votre aide et conseils,

 

[loto]

Re : Exécution chronométrée

Pour mon exécution auto, je crois que je vais adopter ce script que j'ai trouvé sur la toile.
Il exécuter très bien la macro en indépendant sauf qu'il ne faudrait qu'il enregistre les changements du fichiers excel automatiquement à la fin del'exécution (je n'y arrive pas !?!?)

Merci,

main

Function main()
appel_macro_NP()
End Function


Function appel_macro_NP()

Dim Xl
Dim Wb
Dim NomMacro
Dim monOnglet

Set Xl = CreateObject("Excel.application")
Xl.Visible = False
Set Wb = Xl.Workbooks.Open("c:\DIS\Statistiques\duree_batch.xls")

monOnglet = "données"

Xl.run WB.Name & "!Module1.read_stats"

xl.quit
set wb = Nothing
set Xl = Nothing

End Function