Date excel VBA
Résolu
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
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
2 réponses
-
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 -
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
