Comment extraire une annee d une date en vba

Résolu/Fermé
flexi2202 Messages postés 3749 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 27 janvier 2023 - 30 oct. 2018 à 15:08
flexi2202 Messages postés 3749 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 27 janvier 2023 - 2 nov. 2018 à 22:06
bonjour a tous

j ai essaye plusieurs choses afin que seul l annee soit affiche dans une cellule
avec le vba

cela fonctionne mais si je note 2018 il traite l info comme un nombre et pas une date
merci de l aide

Dim myDate As Date
myDate = InputBox("entre la date ?")
myDate = DatePart("m", Date) 'extrait le mois de la date courante.
myDate = DatePart("yyyy", Date) 'extrait l'année de la date courante.

MsgBox myDate

3 réponses

didibonf Messages postés 418 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 21 mai 2019 92
30 oct. 2018 à 15:09
Bonjour,
Peut-être en utilisant :
Year(Date)
1