Discussion :

[lucarno]

Bonjour,

Je formate mes cellule sous VBA en "dd/mm/aa". Mais lorsque j'affecte une date à une cellule, elle est donnée au format "mm/dd/aa". Si je fais l'inverse, elle est affectée au format "dd/mm/aa". Mais quand je la récupère, elle est dans l'autre sens.

En deux mots, je veux écrire une date au format français dans un cellule et pouvoir la récupérer sous VBA dans cette cellule au même format afin de l'utiliser dans VBA.

Je n'y arrive pas. Avez-vous une solution à me proposer ?

Merci.

[AlainTech]

Montre-nous ton code d'écriture/lecture.

[Pierre Fauconnier]

Bonjour

Ce n'est pas le format de la cellule qui pose problème dans ce cas, mais bien la date que tu passes à Excel via VBA.
En standard, VBA va d'abord tenter de considérer la date comme étant en mm/dd/yy. S'il ne peut le faire, il va tenter de l'interpréter au format dd/mm/yy.

Il faut donc se souvenir que les dates sont des nombres et préférer passer ce nombre à la cellule, plutôt qu'une variable de type string.
Si tu passes

Code :

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

Range("a1") = "10/01/2007"

vba passera à excel la date du 1er octobre 2007...

Il vaut mieux utiliser dateserial(year, month, day) comme ceci

Code :

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

1
2
 
Range("a1") = DateSerial(2007, 1, 10)

qui te permettra d'éviter toute erreur d'interprétation.

Ok?

[lucarno]

Bonjour et merci d'avance pour votre contribution.

Mon ancien code était :

Code :

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

CelluleCourante.Value = JourOpération & "/" & MoisOpération & "/" & AnnéeOpération

le nouveau code que je viens d'essayer est :

Code :

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

CelluleCourante.Value = DateSerial(AnnéeOpération, MoisOpération, JourOpération)

Malheureusement, le résultat est le même. J'ai la date sous la forme mois/jour/année dans ma cellule au lieu de jour/mois/année, alors que je l'ai formatée en VBA avec "dd/mm/yy".

Je vous remercie d'avance de me dire l'erreur que je commets.

[lucarno]

J'ai oublié de vous dire que j'avais bien déclaré CelluleCourante en Objet Range.

A+

[zazaraignée]

Salut

Tu peux toujours formater la cellule...

Code :

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

cellulecourante.NumberFormat = "dd\/mm\/yyyy"

[Pierre Fauconnier]

As-tu vérifié les valeurs de MoisOpération et JourOpération? Comment les obtiens-tu?
As-tu vérifié dans Excel, pour la cellule courante, quels étaient le mois et le jour?

[Gamal le Celte]

Il faut savoir que dans Excel il y a un bug sur les dates.

Le format utilisé est le format US et Microsoft ne débuguera pas car c'est une spécialité francaise (cf : Microsoft France ).

J'ai mis une fonction qui contourne ce bug sur ce forum dans "contributions".

Bon courage.

[lucarno]

Je vous dois des excuses, et notamment à Pierre Fauconnier, qui en fait m'avait donné la bonne solution avec l'introduction de la fonction DateSerial.

Simplement, dans mon code, il y a deux endroits selon les cas qui se présentent, où j'écrit la date dans la cellule, et je n'avais corrigé qu'un seul cas.

Donc, la solution est entièrement dans cette fonction. Pour le formatage de la cellule, il s'agit de : "dd/mm/yy".

Merci à tous, pour moi le pb est résolu.

[Pierre Fauconnier]

Pas de problèmes... L'important est que tu aies la solution à ton problème.

Bon travail