(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
785

Statistiques des forums

Discussions
312 413
Messages
2 088 199
Membres
103 758
dernier inscrit
JACQUOT33