Problème de date avec macro

Problème de date avec macro - VB/VBA/VBS - Programmation

Marsh Posté le 06-11-2007 à 12:26:59    

Bonjour,
 
J'ai un problème avec la macro ci-dessous lorsque je l'execute les dates sont modifiées.
ex : dans le fichier d'origine je saisie la date 10-02-2007 (10 février 2007) et lorsque je lance m'a macro les dates sont copiées sur mon autre fichier avec jours et mois inversé soit 02-10-2007 (2 octobre 2007)
avez vous une explication et surtout une solution à mon problème,
mesinfos = Range("A2:AW" & [A65536].End(xlUp).Row)
Workbooks.Open Filename:= _
"\\srvdatamal\.......
Sheets("feuil1" ).Select
Range("A65536" ).End(xlUp)(2).Select
Range(ActiveCell, ActiveCell.Offset(6, 48)).Value = mesinfos
 
D'avance merci,
 
Lasapinière,

Reply

Marsh Posté le 06-11-2007 à 12:26:59   

Reply

Marsh Posté le 06-11-2007 à 12:38:30    

J'ai déjà eu le souci
De mémoire, j'avais du le résoudre en utilisant DateSerial et les fonctions Year, Month, Day
J'ai plus les détails par contre !
A tester...

Reply

Marsh Posté le 06-11-2007 à 12:58:52    

quelqu'un aurait les détails ou une solution rapide et efficace à mon problème ?
merci,

Reply

Marsh Posté le 06-11-2007 à 15:06:30    

vb a des problèmes avec les dates à la francaise, et fait naturellement du format anglo saxon...
personnellement, je décompose la date :
 
MaDate=Mid(Date, 4, 3) & Left(Date, 3) & Right(Date, 4)

Reply

Marsh Posté le 06-11-2007 à 17:39:22    

Les solutions à ce problème passent aussi par le typage des données et/ou le formatage des cellules (format date française).
En plus des astuces données précédemment, j'ajoute la fonction CDate() qui peut être utile.

Reply

Marsh Posté le 07-11-2007 à 08:52:38    

:hello:  
 
As tu vérifié le format des cellules dans ta feuille de destination ?  
Peut-être que le format de destination est mm/jj/aaaa ? Dans ce cas il te faudrai mettre jj/mm/aaaa.

Reply

Marsh Posté le 07-11-2007 à 11:26:31    

merci à tous je viens de trouver une parade,

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed