Bonjour,

sa va surement vous paraitre tous bete mais je me prend le chou et sa marche pas !

Le bute etant d'enlever 3 mois a la date du jour !!
Puis de recuperer l'année !

voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim Valeur As Date
Dim x As Date
 
 
 
Valeur = DateAdd("m", -3, Date)
x = DatePart("yyyy", Valeur)
Et sa ne marche pas !

j'ai trouvé plein de chose :

FORMAT marche pas
x = Year(Valeur) marche pas il prend comme valeur 28/06/1905 ?
Dateserial MArche pas

Je sais plus quoi faire ?

Merci