Valeur de la date du dernier dimanche du mois [Résolu]

[LeSchtroumpf]

Bonjour a tous et a toutes,
Tout est dans la question, je cherche a savior comment récupéré la valeur de la date du dernier dimanche du mois.

Par exemple pour ce mois-ci, la valeur sera le 26/08/2012.

Merci d'avance

[carden752]

Bonjour,

Je pense qu'il est possible de bricoler une fonction qui retourne cette valeur en testant quel est le dernier jour du mois. puis en enlevant en correspondance le nombre de jour pour tomber sur un dimanche.
Quelque chose de ce style à tester.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub dernierdimanchedumois()
dim Ladate as string
Ladate = "23/03/2013"
 If IsDate(Ladate) Then
        dernierjour = CByte(Day(DateSerial(Year(Ladate), Month(Ladate) + 1, 0)))
End If
If DatePart("w", dernierjour & Mid(Ladate, 3), vbMonday, vbUseSystem) <> 7 Then
Debug.Print dernierjour - DatePart("w", dernierjour & Mid(Ladate, 3), vbMonday, vbUseSystem) & Mid(Ladate, 3)
Else
Debug.Print dernierjour & Mid(Ladate, 3)
End If
 
End Sub

[LeSchtroumpf]

Ça fonctionne impeccable ! Merci beaucoup