Comment extraire une annee d une date en vba

Résolu
flexi2202 Messages postés 4141 Statut Membre -  
flexi2202 Messages postés 4141 Statut Membre -
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

Réponse 1 / 3
didibonf Messages postés 439 Statut Membre 96
 
Bonjour,
Peut-être en utilisant :
Year(Date)
1
Réponse 2 / 3
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 763
 
Bonjour, 

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

1
Réponse 3 / 3
flexi2202 Messages postés 4141 Statut Membre 190
 
bonjour
merci cela fonctionne
0
madmyke Messages postés 60718 Date d'inscription   Statut Modérateur Dernière intervention   12 250
 
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
flexi2202 Messages postés 4141 Statut Membre 190
 
bonjour
oui je vais la mettre en resolu
merci pour ce forum
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Connaitre la date d'une photo.
Lilouu.UK -
o -

18 réponses
Comment trouver une photo date et heure préci
scoubidou -
sam -

6 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
DATE RÉELLE D'UNE PHOTO
renaziva -
sony rx100 -

5 réponses