Bonjour à tous

Je travaille sous Acess.

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. sinon il faut l'intervention de qqu'un -> pas terrible !

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


Voici ce que donne le code du formulaire

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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