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

Signaler
Messages postés
18
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
19 décembre 2005
-
Messages postés
140
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
14 octobre 2006
-
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

Messages postés
18
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
19 décembre 2005

C'est bon j'ai trouvé. il faut mettre le format sur MM/DD/YYYY

Merci a tous
3
Merci

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

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

Messages postés
18
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
19 décembre 2005

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
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
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
Statut
Membre
Dernière intervention
19 décembre 2005

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
Statut
Membre
Dernière intervention
20 mai 2011
2
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
Statut
Membre
Dernière intervention
19 décembre 2005

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
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
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
Messages postés
140
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
14 octobre 2006

essaye ca Select Case (Month(Format(ActiveSheet.Range("a2").Value,"MM/DD/YYYY")))
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
salut,
Acecel -> dans ce cas, c'est un Format au même format, donc logiquement inutile^^
PCPT
ou plutot ca alors :



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

Et pour cela il faut utiliser la fonction CDate()


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