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

narkott 18 Messages postés jeudi 28 octobre 2004Date d'inscription 19 décembre 2005 Dernière intervention - 7 oct. 2005 à 15:45 - Dernière réponse : acecel 140 Messages postés jeudi 6 mai 2004Date d'inscription 14 octobre 2006 Dernière intervention
- 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
narkott 18 Messages postés jeudi 28 octobre 2004Date d'inscription 19 décembre 2005 Dernière intervention - 12 oct. 2005 à 11:11
3
Merci
C'est bon j'ai trouvé. il faut mettre le format sur MM/DD/YYYY

Merci a tous

Merci narkott 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

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

PCPT
narkott 18 Messages postés jeudi 28 octobre 2004Date d'inscription 19 décembre 2005 Dernière intervention - 7 oct. 2005 à 16:26
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
aieeeuuuuu 698 Messages postés jeudi 16 janvier 2003Date d'inscription 20 mai 2011 Dernière intervention - 7 oct. 2005 à 16:34
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.
narkott 18 Messages postés jeudi 28 octobre 2004Date d'inscription 19 décembre 2005 Dernière intervention - 7 oct. 2005 à 16:40
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
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscriptionModérateurStatut 3 février 2018 Dernière intervention - 7 oct. 2005 à 16:41
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
acecel 140 Messages postés jeudi 6 mai 2004Date d'inscription 14 octobre 2006 Dernière intervention - 8 oct. 2005 à 13:06
0
Merci
essaye ca Select Case (Month(Format(ActiveSheet.Range("a2").Value,"MM/DD/YYYY")))
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscriptionModérateurStatut 3 février 2018 Dernière intervention - 8 oct. 2005 à 13:15
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 )
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscriptionModérateurStatut 3 février 2018 Dernière intervention - 8 oct. 2005 à 13:42
0
Merci
bah si c'est toi, çà va alors
aieeeuuuuu 698 Messages postés jeudi 16 janvier 2003Date d'inscription 20 mai 2011 Dernière intervention - 12 oct. 2005 à 17:44
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 !
acecel 140 Messages postés jeudi 6 mai 2004Date d'inscription 14 octobre 2006 Dernière intervention - 12 oct. 2005 à 18:14
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.