Macro lancement automatique

13solo · 17 Septembre 2010

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 · 17 Septembre 2010

Re : Macro lancement automatique

Bonjour 13solo,

Code:

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 · 17 Septembre 2010

Re : Macro lancement automatique

Merci, ça marche.

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

Macro lancement automatique

13solo

XLDnaute Nouveau

job75

XLDnaute Barbatruc

13solo

XLDnaute Nouveau

Discussions similaires