Discussion :

[freya91]

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

[ThierryAIM]

Utilise l'evenement Timer de ton formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Load()
    Me.TimerInterval=1800000 '-- 1800000 millisecondes = 1/2 heure
End Sub
 
Private Sub Form_Timer()
    ' --> ici le code à executer
End Sub

[freya91]

Ok merci bcp......... super, je teste

Je mets le timer avant mon code à éxécuter ?

Mais comment le timer va marcher dans Acess ? il faut que je laisse Acess tj ouvert ?
Désolée....... connait pas grand chose ne VB


le code sera donc :

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
Option Compare Database
Private Sub Form_Load()
    Me.TimerInterval=1800000 
End Sub
 
Private Sub Form_Timer()
    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

Hello, pense aux balises poour encadrer ton code : Sélectionner le code + Clic sur et ajoute le TAG [VBA-A] Modifié par ouskel'n'or

[ThierryAIM]

Mais comment le timer va marcher dans Acess ? il faut que je laisse Acess tj ouvert ?
Désolée....... connait pas grand chose ne VB

Oui, ca je vois ...

Et si j'étais toi, je choisirais des noms de Sub ou de controles encore plus longs, ça n'en serait que plus pratique !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_Load()
Me.TimerInterval=1800000
End Sub
 
Private Sub Form_Timer()
Call Lancement_macro_mise_à_jour_site_Web_pdt_Click
End Sub

et pour executer du code VBA, il vaut mieux que Access reste ouvert et ton formulaire aussi
Sinon, ce n'est plus le meme problème, mais là je renonce d'avance

[freya91]

Super merci

je vais tester tout cela et laisser Access ouvert.

Tks

Heu pour les noms, ce n'est pas ma faute c'est access qui créée des noms de sub et de controle aussi long.

Si si, c'est peut être parceque ma base est en .ADP et non en .mdb

bon en tout cas merci bcp et j'essaie d'alléger le tout