Comment extraire une annee d une date en vba

Résolu

flexi2202 -

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

Afficher la suite

3 réponses

Réponse 1 / 3
didibonf
Bonjour,
Peut-être en utilisant :
Year(Date)
1

pijaku Modérateur

Bonjour,

Sub demo()
Dim myDate As Date
myDate = InputBox("entre la date ?")
With Range("A1")
   .Value = myDate
   .NumberFormat = "yyyy"
End With
End Sub

Réponse 3 / 3
flexi2202 Auteur
bonjour
merci cela fonctionne
1
1. madmyke Modérateur
  
  Bonjour
  
  Merci d'avoir participé à ce forum.
  Il semble que votre problème ai trouvé une réponse.
  
  Si la réponse vous satisfait je vous invite à mettre en résolue, c'est très simple.
  
  Merci de cliquer sur >CE LIEN<
  
  Cordialement
  
  0
2. flexi2202 Auteur
  
  bonjour
  oui je vais la mettre en resolu
  merci pour ce forum
  
  0

Comment extraire une annee d une date en vba

3 réponses

Discussions similaires

Newsletters