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 :
Et sa ne marche pas !
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)
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
Partager