Pb de récupération de date sous excel et vba Fermé

Question

Bonjour,

Je rencontre un pb sous excel avec la récupération de dates. J'ai une colonne où l'utilisateur peut saisir une date. Je récupère cette date que j'exporte ensuite dans un fichier texte, qui va servir à alimenter une base de données.
La récupération passe par une macro vba, afin de formater la date pour correspondre au format attendu du coté de la base de données. Or, quand je regarde au debugger ce qui se passe, je m'aperçois que la date récupérée n'est pas celle affichée, mais la date - 1 jour .... 
J'ai essayé de jouer avec les formats de date mais cela n'a pas l'air de venir de là .... J'ai essayé avec plusieurs dates différentes ... idem ...

J'en perds mon latin ! Si quelqu'un a une idée .....

tompols · Answer

Salut,
à priori je dirais que le problème se situe au niveau de ta transformation de la date (je récupere sans probleme un date stockée ds une cellule, pas de bug connu à ce niveau là) mais c'est difficile à vérifier sans voir ton code ou meme un classeur exemple (www.cjoint.com).....

tompols · Answer

Re,
.Cells(i + j, k) recupere bien la valeur de la cellule meme si j'aurais préferé .Cells(i + j, k).value :)
Par contre tu convertis cette valeur via une fonction DateToString, peux-tu donner le code de cette fonction également ?

tompols · Answer

Re,
chez moi en executant ton code ça fonctionne parfaitement......peux-tu stp mettre un classeur exemple sur www.cjoint.com, je n'arrive meme pas à reproduire ton pb...

garion28 · Answer

toutes les années ne sont pas compté

mais est ce que tu es sur que ce iif marche en vba Oo ? ca ressemble a de la formule excel

dunedain69 · Answer

Je viens de voir avec mon responsable, et il est d'accord avec moi sur un point : on va se débrouiller pour ne pas utiliser de dates avant le 1/3/1900 .... Et on aura plus le problème....

Je vais donc cesser de vous importuner, et je vous remercie tous d'avoir consacré du temps à mon souci ...
Certes, il n'est pas vraiment résolu ... Le monde du travail ne demandant pas des explications mais des objectifs à atteindre, je vais continuer mon développement ....

En tout cas, merci à tous (surtout pour tompols) ...
A charge de revanche ....

tompols · Answer

salut,

effectivement, le probleme n'apparait qu'avant mars 1900, 1900 etant un cas particulier du calendrier : 
Le calendrier grégorien

Le concile de Nicée en 325 avait fixé ainsi fixer la date de Pâques : Pâques est le dimanche qui suit le 14ème jour de la Lune qui atteint cet âge au 21 mars ou immédiatement après.
Le 21 mars devait correspondre à l'équinoxe de printemps. Mais en 1582, il tombe le 11 mars. Le pape Grégoire XIII fait réformer le calendrier. Deux décisions sont prises :

    * 1) 10 jours sont supprimés : le lendemain du jeudi 4 octobre 1582 fut le vendredi 15 octobre 1582
    * 2) Les années restent bissextiles tous les quatre ans à cette exception près : les années séculaires (se terminant par 00) sont communes sauf celles dont le nombre de siècles est divisible par 4. 

Ainsi 1700, 1800, 1900 n'ont pas été bissextiles alors que 1600 et 2000 l'ont été.

Le mois de février 1900 a compté 28 jours, l'année 1900 n'a donc pas été bissextile.

Par contre 2000 a été bissextile mais 2100, 2200, 2300 ne le seront pas.

Les autres années multiples de 4 (2004, 2008, 2012, 2016…) restent bissextiles comme dans le calendrier julien.
source : http://www.ac-nice.fr/clea/lunap/html/Calendriers/CalendEnBref.html

"Le mois de février 1900 a compté 28 jours, l'année 1900 n'a donc pas été bissextile" => excel ne doit pas etre au courant puisque le 29/02/1900 est une date valide, par contre en vba, si on determine le dernier jour du mois de fevrier 1900, il donne bien le 28. Félicitations, tu viens de découvrir un 'bug' ! :s
reste une question qd meme : comment se fait-il que tu manipules des dates en 1900 ???

garion28 · Answer

tu pourrai considérer que toutes les dates sont en type texte et utiliser la fonction mid pour traiter les différentes valeur (cherche mid dans l'aide, ca pourrai t'etre utile)

tompols · Answer

Re,
sinon si tu veux garder cette convention "01/01/1900" tu peux tjs le gerer ds ta fonction datetostring, genre if date < 01/03/1900 then date+1 else date....

Pb de récupération de date sous excel et vba

8 réponses

Discussions similaires