Macro lancement automatique

[13solo]

Bonjour,

j'ai créé cette petite macro pour lancer automatiquement celle se nommant prod après 10h

Sub Workbook_Open()
If Time > ("10:00:00") Then Application.Run "Prod"
End Sub

Je souhaite la lancer 3 fois par jour entre 10h et 11h entre 13h et 14h puis entre 17h et 18h
Dans les autres plages, possibilité de lancer la macro Prod manuellement
pouvez vous m'aider pour modifier la macro de départ ?

Merci d'avance.

 

[job75]

Re : Macro lancement automatique

Bonjour 13solo,

Sub Workbook_Open()
Dim h As Byte
h = Hour(Time)
If h = 10 Or h = 13 Or h = 17 Then Prod
End Sub

A+

 

[13solo]

Re : Macro lancement automatique

Merci, ça marche.

C'est simple une fois qu'on voit la solution !!!!