Comment récuperer le mois dans une date?? [Résolu]

Messages postés
18
Date d'inscription
jeudi 28 octobre 2004
Dernière intervention
19 décembre 2005
- - Dernière réponse : acecel
Messages postés
140
Date d'inscription
jeudi 6 mai 2004
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
Afficher la suite 

14 réponses

Meilleure réponse
Messages postés
18
Date d'inscription
jeudi 28 octobre 2004
Dernière intervention
19 décembre 2005
3
Merci
C'est bon j'ai trouvé. il faut mettre le format sur MM/DD/YYYY

Merci a tous

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 98 internautes nous ont dit merci ce mois-ci

Messages postés
18
Date d'inscription
jeudi 28 octobre 2004
Dernière intervention
19 décembre 2005
0
Merci
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
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
29
0
Merci
salut,
je ne sais pas si çà marcherait sous VBA :
Select Case (Month(Format(ActiveSheet.Range("a2").Value,"DD/MM/YYYY")))

PCPT
Messages postés
18
Date d'inscription
jeudi 28 octobre 2004
Dernière intervention
19 décembre 2005
0
Merci
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
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
2
0
Merci
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.
Messages postés
18
Date d'inscription
jeudi 28 octobre 2004
Dernière intervention
19 décembre 2005
0
Merci
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
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
29
0
Merci
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
Messages postés
140
Date d'inscription
jeudi 6 mai 2004
Dernière intervention
14 octobre 2006
0
Merci
essaye ca Select Case (Month(Format(ActiveSheet.Range("a2").Value,"MM/DD/YYYY")))
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
29
0
Merci
salut,
Acecel -> dans ce cas, c'est un Format au même format, donc logiquement inutile^^
PCPT
0
Merci
ou plutot ca alors :



Select Case (Month(Cdate(Format(ActiveSheet.Range("a2").Value,"DD/MM/YYYY"))))
0
Merci
(Le dernier message était de moi )
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
29
0
Merci
bah si c'est toi, çà va alors
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Dernière intervention
20 mai 2011
2
0
Merci
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 !
Messages postés
140
Date d'inscription
jeudi 6 mai 2004
Dernière intervention
14 octobre 2006
0
Merci
Et pour cela il faut utiliser la fonction CDate()


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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.