Bonjour à toutes et à tous,

J'aimerai modifier ce code pour charger un fichier texte avec déjà les dates par défaut que l'on pourra modifier suivant les années plutôt que de les renseigner en dur dans le code (t).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Dim lecture
 
Set lecture=CreateObject("sapi.spvoice")
 
lecture.rate=1
lecture.volume = 100
 
'Pour 2025 
dim MesDate(12),TheMois
 
For t = 1 to 12
        select case t               
                Case 11: MesDate(t) = DateSerial(2025,int(t),21)
                Case 1,2,3,7,10: MesDate(t) = DateSerial(2025,int(t),24)
                case 8: MesDate(t) = DateSerial(2025,int(t),22)
                case 4,5,6: MesDate(t) = DateSerial(2025,int(t),23)
                Case 12: MesDate(t) = DateSerial(2025,int(t),19)
 
end select
next
 
'exemple d'utilisation pour le mois en cours
TheMois = Month(Now)
 
lecture.speak "Plus que " & DateDiff("d",now,MesDate(TheMois)) & " Jours"  & vbCrlf & " Avant de toucher ma pension"
Fichier texte que l'on pourra modifier :

Janvier 24/01/2025

Février 24/02/2025

Mars 24/03/2025

Avril 23/04/2025

Mai 23/05/2025 + Congés payé

Juin 23/06/2025

Juillet 24/07/2025

Août 22/08/2025

Septembre 23/09/2025

Octobre 24/10/2025

Novembre 21/11/2025

Décembre 19/12/2025
Et enfin pour le mois de mai ajouter ceci "Avant de toucher ma pension et mes congés payés".

En vous remerciant d'avance,

@+,

cincap