Date excel VBA

Résolu
chewbi47 Messages postés 14 Statut Membre -  
chewbi47 Messages postés 14 Statut Membre -
Bonjour,

Je vous expose mon probleme,
j'ai besoin de mettre l'annee, le mois et le jour de la date courante dans des cellules excel.
Mon probleme n'est pas au niveau de la demarche mais de la date, excel ne me renvoie pas du tout la date d'aujourd'hui ! que faire ?

Je vous met la partie de codage VBA pour plus de clarte :

Range("A1").Select
ActiveCell.FormulaR1C1 = Year(today)
Range("A2").Select
ActiveCell.FormulaR1C1 = Month(today)
Range("A3").Select
ActiveCell.FormulaR1C1 = Day(today)

Dans les cellules A1, A2 et A3, j' ai respectivement 1899, 4 et 10

que faire ? erreur de syntaxe ? erreur de date systeme (lorsque j'utilise la fonction aujourd'hui directement dans les cellules j'obtiens la bonne date) ?

PS : desole si le post existe deja, si tel est le cas donnez moi le lien svp...
nb : pas d'accent sur mes lettres car j'utilise un clavier "qwerty"

Merci d'avance pour vos reponses

Windows XP / Excel 2010
A voir également:

2 réponses

ccm81 Messages postés 11033 Statut Membre 2 433
 
bonjour

ceci devrait aller

Range("A1").Value = Year(Now) 
Range("A2").Value = Month(Now) 
Range("A3").Value = Day(Now) 

et si tu veux les formules

Range("A4").FormulaLocal = "=ANNEE(AUJOURDHUI())"
Range("A5").FormulaLocal = "=MOIS(AUJOURDHUI())"
Range("A6").FormulaLocal = "=JOUR(AUJOURDHUI())"

bonne suite
0
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour tout le monde,

Comme tu débutes, un petit truc qui aurait pu t'alerter : le T de today ne s'est pas mis en majuscule. Ce n'est donc pas un mot clé connu de vba

eric
0
chewbi47 Messages postés 14 Statut Membre 1
 
Bonjours,

merci pour vos responses,
ca fonctionne !

eriic merci pour cette precision, je connais ce system avec les majusculesw mais il est vrai que je n'y ai pas fait attention, je garedrai un oeuil dessus a l'avenir :)

Encore merci a vous tous
0