Msgbox tel jour

Bonjour a tous,

Sur le fichier joint ci-dessous, j'ai des msgbox qui apparaissent à des heures données.

J'aimerais également pouvoir choisir quel jour de la semaine ces msgbox apparaissent. Par exemple, msgbox1 apparaît du lundi au vendredi, msgbox2 apparaît du samedi au dimanche.

Est-possible ?

Bonjour Saysso,

Il faut utiliser la fonction Weekday()

' Si le jour est entre le lundi et vendredi
If Weekday(Date, vbMonday) >= 1 And Weekday(Date, vbMonday) < 6 Then
  H = TimeValue("00:16:00")
  Application.OnTime Format(H, "hh:mm:ss"), "message1"
End If
' Si le jour est après le vendredi, donc le week-end
If Weekday(Date, vbMonday) > 5 Then
  H = TimeValue("01:30:30")
  Application.OnTime Format(H, "hh:mm:ss"), "message2"
End If

A+

Super, merci BrunoM45 !