Discussion :

[mirmae]

Bonjour à tous!

J'ai un petit problème étrange au niveau des dates de mon programme vba.

Je récupère une date dans une cellule comportant plusieurs informations et je la copie dans un autre fichier.

Pour certaines dates il y a un mélange entre les jours et les mois lorsqu'il est possible de les inverser.
Par exemple le 21/10/2013 reste la même par contre le 04/11/2013 devient 11/04/2013

Voici le code que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nDateFin = Format(Left(Cells(i, 2).Value, 19), "mm/dd/yyyy hh:mm")

Petite précision : les dates que je récupère sont aux format mm/dd/yyyy hh:mm


Quelqu'un aurait il une petite idée?
Merci d'avance pour votre aide.

[casefayere]

Bonsoir,
et comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nDateFin = Format(CDate(Left(Cells(i, 2).Value, 19)), "mm/dd/yyyy hh:mm")

[mirmae]

Tout d'abord merci pour votre aide.

Je veins de tester votre solution et elle fonctionne mais j'ai du faire une erreur par la suite parce qu'au final la date reste toujours dans le mauvaise ordre dans le fichier final.

je récupère la date grâce à votre formule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nDateFin = Format(CDate(Left(Cells(i, 2).Value, 19)), "mm/dd/yyyy hh:mm")

lorsque je regarde la variable pas à pas, nDateFin = 11/04/2013

Mais au moment où je colle cette information dans la nouvelle feuille à l'aide de la formule suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 2) = nDateFin

J’obtiens: 04/11/2013

Une petite idée de ce phénomène?

(et encore merci!)

[casefayere]

comment as-tu déclaré la variable "nDateFin" ?

[mirmae]

Merci!!!!

J'avais mal défini ma variable.
avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim nDateFin As Date

ça fonctionne mieux

Un grand merci et bonne soirée!

[casefayere]

toi aussi

penses à cliquer sur