Comment récuperer le mois dans une date??

Résolu
narkott Messages postés 18 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 19 décembre 2005 - 7 oct. 2005 à 15:45
acecel Messages postés 140 Date d'inscription jeudi 6 mai 2004 Statut Membre Dernière intervention 14 octobre 2006 - 12 oct. 2005 à 18:14
Bonjour,



J'ai un petit problème j'ai quasiment fini mon application et je me
suis aperçu qu'au lieu de récuperer le mois dans une cellule contenant
le date, il me récuperer le jour: Voici mon code en vba excel :



Select Case (Month(CDate(ActiveSheet.Range("a2").Value)))



Quelqu'un aurait t'il une idée sur ce que je dois mettre??



Merci

14 réponses

narkott Messages postés 18 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 19 décembre 2005
12 oct. 2005 à 11:11
C'est bon j'ai trouvé. il faut mettre le format sur MM/DD/YYYY

Merci a tous
3
narkott Messages postés 18 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 19 décembre 2005
7 oct. 2005 à 16:01
En faite j'ai compris mon probléme mais je sais pas comment le regler.

J'ai un formulaire qui affiche automatiquement la date a l'aide du format Date.

Le seul problème c'est quand j'enregistre. Il traduit le format au
format mm/dd/yyyy et meme en changeant le format de cellule sous excel
a l'inverse, ça change rien puisqu'il est pas si con que ça.



Une idée
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
7 oct. 2005 à 16:20
salut,
je ne sais pas si çà marcherait sous VBA :
Select Case (Month(Format(ActiveSheet.Range("a2").Value,"DD/MM/YYYY")))

PCPT
0
narkott Messages postés 18 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 19 décembre 2005
7 oct. 2005 à 16:26
Non ça ne change rien il continue de m'afficher le jour et non le mois.
J'ai essayer de modifier le format. Je ne voit pas comment faire.

Ca fait pas trés longtps que je code sous VBA et honnetement j'ai encore quelque lacune.

Si quelqu'un a déjà eu le problème j'aimerais bien qu'il me dise comment il a pu le résoudre.

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
aieeeuuuuu Messages postés 698 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 20 mai 2011 2
7 oct. 2005 à 16:34
salut

a mon avis l'erreur vient d'avant.

il faut que tu cherche a quel moment le mois et le jour sont inversés.

mieux vaut resoudre le probleme a la racine :)

a tout hasard, verifie les parametres regionnaux des differentes machines en jeu.
0
narkott Messages postés 18 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 19 décembre 2005
7 oct. 2005 à 16:40
Merci. j'ai déjà vérifier si j'étais bien au bon format. Ma date
s'incrémente automatique dans un formulaire qui est correcte. Dans mon
formulaire la date est correcte. Mais au moment de l'importation dans
excel ça inverse tout . Et meme si je modifie le format je reste
toujous dans le format MM/DD/YYYY



Je sais pas trop comment faire
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
7 oct. 2005 à 16:41
Pier0 a déjà évoqué ce problème à plusieurs reprises. essaie de trouver ses topics sur le forum, je ne sais pas s'il a solutionné ce problème.
PCPT
0
acecel Messages postés 140 Date d'inscription jeudi 6 mai 2004 Statut Membre Dernière intervention 14 octobre 2006
8 oct. 2005 à 13:06
essaye ca Select Case (Month(Format(ActiveSheet.Range("a2").Value,"MM/DD/YYYY")))
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
8 oct. 2005 à 13:15
salut,
Acecel -> dans ce cas, c'est un Format au même format, donc logiquement inutile^^
PCPT
0
ou plutot ca alors :



Select Case (Month(Cdate(Format(ActiveSheet.Range("a2").Value,"DD/MM/YYYY"))))
0
(Le dernier message était de moi )
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
8 oct. 2005 à 13:42
bah si c'est toi, çà va alors
0
aieeeuuuuu Messages postés 698 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 20 mai 2011 2
12 oct. 2005 à 17:44
attention, verifie quand meme que ca fonctionne tout le temps

j'avais deja ce type de probleme avec une base access :
mois et jour inversés dans les dates. mais a partir du moment ou le jour etait superieur a 12, l'inversement ne se faisait plus.
donc l'application me sortait tantot des dates au format DD/MM/YYYY et tantot MM/DD/YYYY

verifie donc que ta solution fonctionne pour n'importe quel type de date !
0
acecel Messages postés 140 Date d'inscription jeudi 6 mai 2004 Statut Membre Dernière intervention 14 octobre 2006
12 oct. 2005 à 18:14
Et pour cela il faut utiliser la fonction CDate()


Month(Cdate(Format(ActiveSheet.Range("a2").Value,"DD/MM/YYYY")))
0