[VBA] Pb de format des dates dans un état

Bonjour!
J'ai eu beau chercher, je ne trouve pas de solutions pour les affichages dans les états.
Je cherche à afficher la date du vendredi de la semaine n-2 (donc le 10/06/2005). j'arrive à avoir le bon format avec le code ci-dessous mais seulement dans un msgbox, car dans l'état, j'obtiens 06/10/2005.

Code:

---

1 2 3 4 5 6

DateFin = DateAdd("ww", NumSemaine - 3, D) Jour = DatePart("d", DateFin) Mois = DatePart("m", DateFin) DateFin = DateSerial(Annee, Mois, Jour) TxtFinn2.ControlSource = "=#" & Format(DateFin, "dd/mm/yyyy") & "#"

---

Est-ce possible de garder le format français dans l'état?

S'il te l'affiche comme cela c'est à priori que tu travailles sur un Windows anglais.
Il te suffit alors de changer le format de date dans les options régionales de Windows.

je viens de revérifier mais je suis bien en Windows français... :(

Tu as vérifié les paramètres de ton windows ?

Je sais que Jet travaille toujours en mode anglais comme tous les SGBD : mm/dd/aaaa, mais access utilise les paramètres régionaux pour l'affichage des informations dans les formulaires.

dans les paramètres régionaux de windows, c'est mis français(france) avec un exemple de date courte: 20/06/2005.
Tu veux une copie d'écran ou tu me crois?

Nan je te crois c'était pas ça le problème. Je redemandais car tu avais dit avoir vérifié que Windows était en français...j'avais pas compris que tu avais vérifié le format des dates :oops:.

Désolé c'est la seule piste que j'ai trouvé....

merci quand même :)

n'ayant aucun calcul à faire sur les dates, je pensais mettre la date ne chaine de caractères mais quand je met un /, il fait le calcul.
Ex: je veux écrire ça: 10/06 et j'obtiens 1.6667.

voici mon code:

Code:

---

1 2 3 4 5

DateFin = DateAdd("ww", NumSemaine - 3, D) Jour = DatePart("d", DateFin) Mois = DatePart("m", DateFin) Fin = Chr(34) & Jour & chr(34) & Chr(47) & chr(34) & Mois & Chr(34)

---

comment faire pour l'empecher de faire le calcul?

si tu fais

Code:

---

Fin = Jour & " / " & Mois

---

ça marche pas?

non, il me fait toujours le calcul...

peut-être en déclarant 'Fin' en format date et faire:

Code:

---

Fin = "# " & Jour & " / " & Mois & " #"

---

il me fait une erreur: "incompatibilité de type"
et si je met fin en string, il me remet la date au format américain

je ne sais pas si ça peut marcher dans ton programme mais essaye:

Code:

---

Fin = "# " & Mois & "/" & Jour & " #"

---

ça marche mais le problème c'est que la date est variable donc si on est le 30/06, ça ne fonctionne plus...
ça commence à m'énerver cette histoire :(

sois un peu plus précis, quelle date varie? En quoi ça dérange?

j'ai un état qui donne des résultats d'analyse des semaines n-3 à n.
En fait, c'est un modèle de document: il sert plusieurs fois, à des dates différentes.Tout se passe très bien tant que le jour est <12.
mais vu qu'on peut se resservir de cet état à une autre date, ce n'est pas forcément le meme textbox qui aura le mauvais format.
Je ne sais pas si je suis claire... :?:

je ne pense pas être assez expérimenté pour t'aider d'avantage, peut-être d'autres personnes pourront mieux te répondre...

Désolé :cry: ...

Regarde la propriété Format de ton TextBox.
A quel format est il ? Quel exemple (deuxième colonne de la liste déroulante) Access donne il ?

mon textbox n'a pas de format et quand je lui met jj/mm, ça ne change rien...

Le jj/mm tu l'as entré à la main où tu l'a choisi dans la liste déroulante ?