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
Partager