Lancer une procédure selon conditions (date et heure)

[maud.33500]

Bonjour le forum,

Ca faisit bien longtemps que je n'avais pas eu besoin de votre aide mais là, je sèche complétement!

Je souhaite lancer une procédure qui s'exécute de la façon suivante:

- du lundi au vendredi à 6h00, 14h00 et 22h00
- le samedi et dimanche à 6h00 et 18h00

J'ai essayé d'adapter lecode suivant qui fonctionne très bien avec différentes fonctions pour prendre en compte mes conditions: timer, intervalle,si date jour = 7 ou 1 ... Mais rien ne fonctionne.

Quelqu'un aurait une idée?

Merci d'avance

Sub auto_open()
  heure = "06:00:00"
  Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
End Sub

Sub ferme()
   ActiveWorkbook.Close savechanges = True
End Sub

 

[MJ13]

Re : Lancer une procédure selon conditions (date et heure)

Bonjour Maud

Le mieux serait un code de ce type:

if weekday(date) = 2 then

 

[maud.33500]

Re : Lancer une procédure selon conditions (date et heure)

Bonjour Michel,

Merci pour ta réponse, je suis d'accord avec toi pour la condition If, je l'ai adapté au samedi et dimanche...
Mais je n'arrive pas à définir plusieurs variables "heure" et c'est ça qui me bloque vraiment, une astuce?

Sub auto_open()
  Dim heure$
  Dim heure1$
  heure = "06:00:00" ' ou "18:00:00"
  heure1 = "06:00:00" ' ou "14:00:00" ou "22:00:00"
  ' Sachant que "heure1" ne fonctionne pas...
  
 If Weekday(Date) = 1 Or 7 Then
 Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme" 'si samedi ou dimanche enregistrement à 6h00 et à 18h00
Else
 Application.OnTime EarliestTime:=TimeValue(heure1), Procedure:="ferme" ' si reste de la semaine enregistrement à 6h00, à 14h00 et à 22h00
    End If
  
End Sub

 

[MJ13]

Re : Lancer une procédure selon conditions (date et heure)

Re

Te prend pas la tête, si tu n'as pas l'habiude, va au plus simple (c'est ce que je fais en général et je gagne 10 fois le temps perdu ):

Pour chaque heure, tu fais:

if WD(date) > X or WD(date) < Y then appp...on time  "06:00:00"

 

[maud.33500]

Re : Lancer une procédure selon conditions (date et heure)

Re,
En fait tu me suggères de faire un IF pour chacune de mes conditions, c bien ça?

Je teste ça des que je retourne au bureau et je te dis.

Merci pour l'idée j'y avais pas pensé!

 

[maud.33500]

Re : Lancer une procédure selon conditions (date et heure)

Re Michel,

Ca fonctionne parfaitement! A force d'être dans mon code, je n'ai pas vu ce qui était pourtant évident! Un grand merci !

Bon ben j'y retourne...
Bonne journée

PS: Voici le code que j'ai utilisé, on sait jamais, ça pourrait aider quelqu'un...

Sub auto_open()

 If Weekday(Date) > 2 And Weekday(Date) < 7 Then 'définit jours semaine (3 enregistrements / jour)
 Application.OnTime EarliestTime:=TimeValue("06:00:00"), Procedure:="ferme"
 Application.OnTime EarliestTime:=TimeValue("14:00:00"), Procedure:="ferme"
 Application.OnTime EarliestTime:=TimeValue("22:00:00"), Procedure:="ferme"
 
 Else 'Sinon WE (2 enregistrements / jour)
 Application.OnTime EarliestTime:=TimeValue("06:00:00"), Procedure:="ferme"
 Application.OnTime EarliestTime:=TimeValue("18:00:00"), Procedure:="ferme"
 
 End If

End Sub