Discussion :

[freya91]

Bonjour à tous

J'ai fait un formulaire qui appelle une macro, cela fontionne trés bien, mais je souhaiterais l'améliorer.

Au lieu qu'elle s'active au click de la souris, qu'elle se lance automatiquement toutes les 1/2 heures.

Il faut insérer une fonction timer, mais je ne sais pas le code VB qu'il faut remplacer, insérer etc....


Voici ce que donne le code du formulaire

Option Compare Database


Private Sub Formulaire_exe_Macro_exe_la_MàJ_des_fichiers_HTM_du_site_pour_le_Click()
On Error GoTo Err_Formulaire_exe_Macro_exe_la_MàJ_des_fichiers_HTM_du_site_pour_le_Click

Dim stDocName As String

stDocName = "Macro exe la MàJ des fichiers HTM du site pour les adres"
DoCmd.RunMacro stDocName

Exit_Formulaire_exe_Macro_exe_la_MàJ_des:
Exit Sub

Err_Formulaire_exe_Macro_exe_la_MàJ_des_fichiers_HTM_du_site_pour_le_Click:
MsgBox Err.Description
Resume Exit_Formulaire_exe_Macro_exe_la_MàJ_des

End Sub
Private Sub Fermer_ce_formulaire_sans_lancer_la_macro_Click()
On Error GoTo Err_Fermer_ce_formulaire_sans_lancer_la_macro_Click


DoCmd.Close

Exit_Fermer_ce_formulaire_sans_lancer_la:
Exit Sub

Err_Fermer_ce_formulaire_sans_lancer_la_macro_Click:
MsgBox Err.Description
Resume Exit_Fermer_ce_formulaire_sans_lancer_la

End Sub
Private Sub Lancement_macro_mise_à_jour_site_Web_pdt_Click()
On Error GoTo Err_Lancement_macro_mise_à_jour_site_Web_pdt_Click

Dim stDocName As String

stDocName = "Macro exe la MàJ des fichiers HTM site pdt"
DoCmd.RunMacro stDocName

Exit_Lancement_macro_mise_à_jour_site_We:
Exit Sub

Err_Lancement_macro_mise_à_jour_site_Web_pdt_Click:
MsgBox Err.Description
Resume Exit_Lancement_macro_mise_à_jour_site_We

End Sub




Merci

[marot_r]

Veux-tu qu'elle s'execute toutes les 30 minutes ou toutes les demi-heures (ex à 12h00, 12h30, 13h00, ...) ?

A+

[freya91]

Merci Marot mais j'ai eu la réponse dans le forum VB directement

J'ai modifié le VB du formulaire et maintenant c'est Ok elle s'exécute toute seule toutes les 2 minutes, c'est génial

seul soucis, il faut laisser access ouvert et le formulaire aussi, mais bon comme c'est un serveur et qu'on est en phase de test,pas trop grave


Mais si tu as une idée pour que ça marche sans ouvrir Access......... à part de la programation pure, là je vois pas

[marot_r]

Tu peux utiliser le gestionnaire d'événement de Windows mais aux deux minutes ça va être long à définir :-).

A+

[freya91]

tu modifies comment le gestionnaire d'évènement Windows ?

[marot_r]

Oops, mes excuses, je voulais dire le gestionnaire de tâches plannifiées.

A+