[RESOLU] Utilisation Datepart

[MaximeRoth]

Bonjour à tous,

J'ai un problème concernant l'utilisation de la fonction Datepart de VBA.
Je souhaite placer dans 2 cellules, le mois et l'année de la date d'aujourd'hui.
Après avoir fait quelques recherches j'ai trouvé ceci:

    'Date mois
    Cells(ActiveCell.Row, 4).Value = DatePart("m", today)
    'Date année
    Cells(ActiveCell.Row, 3).Value = DatePart("yyyy", today)

Or je me retrouve avec 1899 comme année et 12 comme mois.
Malgré l'aide Excel j'ai du mal à comprendre le fonctionnement de la fonction DatePart...

A+

Max

 

[Pierrot93]

Re : Utilisation Datepart

Bonjour,

remplace "today" par "Date"...

bon après mdi
@+

Edition : bonjour Dull

 

[Dull]

Re : Utilisation Datepart

Salut MaximeRoth, le Forum

Essaye plutôt comme cela

'Date mois
Cells(ActiveCell.Row, 4).Value = DatePart("m", Date)
'Date année
Cells(ActiveCell.Row, 3).Value = DatePart("yyyy", Date)

EDITION: Salut Pierrot

Bonne Journée

 

[MaximeRoth]

Re : Utilisation Datepart

Salut Dull, Pierrot93,

Merci pour votre aide ça marche à la perfection. (je me sens quand même un peu bête pour cette erreur surtout après avoir essayé, today, aujourdhui... et ne pas avoir pensé à Date........)

A+

 

[Misange]

Re : [RESOLU] Utilisation Datepart

Attention à datepart si tu l'utilises pour extraire des semaines aux normes européennes, il y a un bug avec quelques dates. Sinon pas de pb.