Problème date passe du format jj/mm/yyyy au format mm/jj/yyyy tout seul

Bonjour,

J'ai développé une application de suivi de qualité durant mon stage. Dans cette application j'ai créer une fonction de sauvegarder qui va récupérer les lignes qui ont été insérées après la date de dernière sauvegarde. Les informations des nouvelles lignes sont stockées dans une variable tableau à deux dimensions.

'liste des retouches à ajouter
Dim listeDernRetouche

Une fois ces variables stockées, on les insère dans le fichier qui sert de BDD sur la cellule 3 de la colonne correspondant (N)

'On met les cellules au format date
Cells(3, 13).Select
Selection.NumberFormat = "dd/mm/yyyy h:mm;@"
Cells(3, 15).Select
Selection.NumberFormat = "dd/mm/yyyy h:mm;@"
Cells(3, 17).Select
Selection.NumberFormat = "dd/mm/yyyy h:mm;@"
Cells(3, 20).Select
Selection.NumberFormat = "dd/mm/yyyy h:mm;@"

'On insert la retouche et on insère la date de maintenant à la dernière colonne
For colonneChampsRetouche = 0 To 19
    Cells(3, colonneChampsRetouche + 1) = listeDernRetouche(k, colonneChampsRetouche)
Next colonneChampsRetouche

Les données sont stockées au format string, on le voit lors du débogage.

Cependant une fois la donnée insérée, le mois et le jour s'inverse.

Je ne vois vraiment pas d'où le problème peut venir. Quelqu'un a une idée.

Bonjour,

Le problème ne vient pas du format, qui ne modifie que l'apparence de la date. Il vient du contenu, c'est à dire que la date n'est pas correctement reconnue, étant interprétée comme chez nos amis anglo-saxons quand c'est possible.

C'est donc lors de l'insertion de la date qu'il faut préciser la bonne valeur pour éviter à Excel des erreurs d'interprétation. Je conseille d'utiliser dans votre macro DateSerial(Année, Mois, Jour), qui évite une confusion mois et jour.