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 17223 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 janvier 2025 - 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

A voir également:

1 réponse

f894009 Messages postés 17223 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 janvier 2025 1 712
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