Discussion :

[Fg9242]

Bonjour;

j'ai code VBA qui s'exécute toute les 15 minutes pour actualiser des valeurs dans un classeur. à la fin ce code exécute des marcos. et je voudrais que ces macros ne puissent s'activer que dans une plage horaire.

Exemple:

Le macro 1 ne s’exécute que de 07h30 à 12h
Le macro 2 de 12h00 à 16h
etc.....

J'avais pensé à ceci:

Code :

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

 Application.OnTime TimeValue ("07:30:00"), "Macro1", ("12:00:00")

Malheureusement sa ne marche pas. je suppose que je dois utiliser autre chose que Ontime.

Des idée?

merci d'avance!

[PMO2017]

Bonjour,

Une piste en utilisant TimeSerial et Time

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
'#################################################
'### La macro1 ne s’exécute que de 07h30 à 12h ###
Sub macro1()
'/// code à mettre au début de la macro ///
Dim Debut As Date
Dim Fin As Date
Debut = TimeSerial(7, 30, 0)
Fin = TimeSerial(12, 0, 0)
If Debut > Time Or Fin < Time Then
  MsgBox "La macro ne peut s'exécuter qu'entre " & Debut & " et " & Fin
  Exit Sub
End If
'/// votre code traitement ci-dessous ///
'
'
'
End Sub
 
'#################################################
'### La macro2 ne s’exécute que de 12h00 à 16h ###
Sub macro2()
'/// code à mettre au début de la macro ///
Dim Debut As Date
Dim Fin As Date
Debut = TimeSerial(12, 0, 0)
Fin = TimeSerial(16, 0, 0)
If Debut > Time Or Fin < Time Then
  MsgBox "La macro ne peut s'exécuter qu'entre " & Debut & " et " & Fin
  Exit Sub
End If
'/// votre code traitement ci-dessous ///
'
'
'
End Sub

[Fg9242]

Merci, super ça marche!