message du vendredi

[guillaume]

bonjour a tous

je souhaiterais a la fermeture d'un classeur chaque vendredi avoir un message bien sur je connais Private Sub Workbook_BeforeClose mais je n"arrive pas a definir le vendredi dans mon message
merci a tous

 

[michel]

bonjour Guillaume

j'espere que l'exemple joint repondra à ta demande

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If WeekDay(Date, vbSunday) = 6 Then MsgBox "Nous sommes Vendredi"
End Sub
'Date renvoie la date du jour
'en indiquant vbSunday ,cela precise que le dimanche est le premier
'jour de la semaine
'Weekday renvoie donc le numero du jour dans la semaine ,par rapport au dimanche
'le vendredi est donc le 6eme jour de la semaine
'pour faire un test sur aujourd'hui(mercredi) , remplace le 6 par un 4

bon apres midi
michel

 

[Pascal76]

Salut Guillaume

Petite précision si tu mets WeekDay(Date) tout court par défaut le dimanche est numéro 1 comme le dit Michel

Bonne journée

Pascal

 

[guillaume]

MERCI A TOUS LES 2 c'est ce que je cherchais
avec ce forum on gagne a tous les coups
BONNE SOIREE AU FORUM