(Résolu) message si dernier jour ouvré du mois

Macpoy

XLDnaute Impliqué
Bonjour le forum,
première info: ma semaine commence le mardi et se finie le samedi soir.
j'aimerais intégrer dans une macro, (que j'ai déjà créer) un message m'avertissant que c'est le dernier jour ouvré du mois.
cette demande est loin d'être simple puisqu'il faut prendre en compte que le dernier jour du mois peut être un dimanche ou un lundi (jours ou je ne travailles pas ) que ce peut être le 28, le 29 (année bisextile) le 30 ou le 31.
bon j'imagine que cela commence comme cela :

If (ActiveCell.FormulaR1C1 = "=DAY(A1)" = 28) Then
MsgBox "c'est la fin du mois"
End If

toutes vos idées pour y arriver ou contourner sont les bienvenues.
je continus à chercher en même temps que vous
cordialement
jacques
après quelques essais :
If (Day(A1) = 28) Then
MsgBox ("c'est la fin du mois")
End If
bon on s'y remet !!
 
Dernière édition:

Discussions similaires

Réponses
14
Affichages
734

Statistiques des forums

Discussions
312 219
Messages
2 086 369
Membres
103 197
dernier inscrit
sandrine.lacaussade@orang