Soyons sérieux.
Avant de te précipiter vers ce forum pour un oui et pour un non, pour chaque petit bobo, EnguerrandP, tu devrais consulter ton aide VBA. En frappant seulement le mot Date, tu y découvrirais des tas de choses intéressantes, d'une rubrique à l'autre !
Il te faut systématiquement avoir ce réflexe-là, le plus tôt possible.
Regarde : en 2 coups de cuillères à pot, deux manières que je viens d'écrire. Je pourrais en écrire plusieurs autres !!!
Dim toto As Date, an As Integer, dateref As Date
toto = CDate("30/05/2013")
an = Year(toto)
dateref = DateSerial(Year(toto), 6, 30)
MsgBox IIf(toto > dateref, "année " & an & "-" & an + 1, "année " & an - 1 & "-" & an)
Dim coucou As Date, trimestre As Integer
coucou = CDate("02/07/2013")
trimestre = DatePart("q", coucou)
an = Year(coucou)
MsgBox IIf(trimestre > 2, "année " & an & "-" & an + 1, "année " & an - 1 & "-" & an)
Regarde chacun des mots qui te semblent inconnus dans ces deux codes. Ouvre ton aide VBA sur chacun d'eux. Et lis avidement.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.