Message box tous les Lundi

Bonjour,

Je souhaiterais que dans une fichier Excel un message apparaisse tous les Lundi à l'ouverture du fichier pour cloturer la semaine d'avant. Je suis sous Excel 2003

meci d'avance

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    une idee

    dans une cellule: =SI(JOURSEM(AUJOURDHUI();2)=2;"Cloture";"")

    ou

    VBA ThisworkBook:

    Private Sub Workbook_Open() 
        'test si le jour de la semaine est lundi 
        If Weekday(Now(), vbMonday) = 1 Then 
            MsgBox "cloturer la semaine d'avant!!!" 
        End If 
    End Sub


    A vous de voir