Discussion :

[idhmida]

Bonjour,

Je voudrais savoir comment récupérer le mois let l'année d'aujourd'hui svp,
j'ai essayé avec le code suivant, mais le résultat que j'obtiens est "21/01/2234" dans la cellule A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim annee As Date, mois As Date
annee = Year(Now())
mois = Month(Now())
 
recup.Range("A1") = mois & annee

pouvez vous m'aider svp
Merci beaucoup!!

[nibledispo]

bonjour,

essai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub moisannee()
 
Dim annee As Integer, mois As Integer  ' integer et non date
annee = Year(Now())
mois = Month(Now())
 
MsgBox mois & "/" & annee
End Sub

il y a peut-être plus simple.

cordialement,

[idhmida]

bonjour,

essai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub moisannee()
 
Dim annee As Integer, mois As Integer  ' integer et non date
annee = Year(Now())
mois = Month(Now())
 
MsgBox mois & "/" & annee
End Sub

il y a peut-être plus simple.

cordialement,

Bonjour,

Merci pour le retour, mais je souhaite conserver le mois et l'année obtenu et affecter cette valeur dans la cellule A1, et non pas seulement l'afficher, comment faire dans ce cas please?

Merci beaucoup!

[illight]

Mouais...Comme l'a dit Marc, pour ne pas passer par une formule Excel direct, que passer par du VBA ?

Sinon, en VBA, ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub moisannee()
 
Dim annee As Integer, mois As Integer  ' integer et non date
annee = Year(Now())
mois = Month(Now())
 
Range("A1").value = CStr(mois & "/" & annee)
End Sub

[Marc-L]

Bonjour,

si peu de lignes et autant d'erreurs !

Manquerait pas quelque chose en ligne n°6 ?! Du genre un séparateur entre le mois et l'année …

Sinon Supprimer la ligne n°2 …

Et la cellule A1 doit être au format Texte et non pas Date …


Edit : Paul a été plus rapide …

[illight]

si peu de lignes et autant d'erreurs !

4 lignes, 2 erreurs, c'est une bonne moyenne ça fait du 50 %


Sinon, sentant la question pointer le bout de son nez, j'anticipe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim annee As Integer, mois As Integer  ' integer et non date
annee = Year(Now())
mois = Month(Now())
jour = Day(Now())
MsgBox DateValue(jour & "/" & mois & "/" & annee)

la même chose avec le jour...

[nibledispo]

bonjour illight,

Effectivement datevalue est bienvenu pour conserver le format date.

Par contre, si l'on ajoute les jours le problème ne se pose même pas selon moi.
la date sera tout simplement renvoyée avec "msgbox date" me semble-t-il.

Cordialement,

[illight]

J'ai préféré le rajouter, parce que, si j'ai bien compris, il veut rajouter la valeur obtenue dans une cellule.

Effectivement, dans une MsgBox le problème ne se posera pas

[Marc-L]

Oserais-je signaler l'inutilité de passer par VBA pour l'effectuer, une formule directe dans une cellule peut s'en charger ! …

[idhmida]

J'ai préféré le rajouter, parce que, si j'ai bien compris, il veut rajouter la valeur obtenue dans une cellule.

Effectivement, dans une MsgBox le problème ne se posera pas

Merci beaucoup illight!! Le problème est résolu!!