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 !!
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: