Message box tous les Lundi

Fermé
fredoalex Messages postés 2 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 19 mars 2013 - 19 mars 2013 à 16:44
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 - 19 mars 2013 à 17:15
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

f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 1 680
Modifié par f894009 le 19/03/2013 à 17:21
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