Message box tous les Lundi

fredoalex Messages postés 3 Statut Membre -  
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

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