Message box tous les Lundi

fredoalex Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0