Discussion :

[miniwho]

Bonjour à tous,

Après avoir parcouru pas mal de discussions sur ce sujet, je me décide enfin à poster car je n'ai pas vraiment trouvé de solution à mon problème . En fait, j'aimerais insérer certaines infos de la table 1 dans la table 2 et les traiter en VBA. Je demande donc à l'utilisateur d'entrer deux dates (date_deb et date_fin) et je récupère les infos entre ces dates, voilà donc mon code:

Code :

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

1
2
3
4
5
date_deb = "#" & InputBox("Entrez une date de debut ") & "#" 
insertion_fixe = "INSERT INTO table 1
SELECT *
FROM table 2
WHERE F.[Mdate du jour] Between " & date_deb & " And " & date_fin & ");"

Seulement j'ai l'impression qu'il me récupère mes dates au format "mm/jj/aaaa", j'ai donc tenté de les formater avec:

Code :

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

date_deb = Format(date_deb, "jj/mm/aaaa")

Mais c'est toujours pareil
Je ne sais pas trop quoi faire à part demander aux utilisateurs d'entrer la date au format ""mm/jj/aaaa".

J'espère que j'ai été clair mais sinon hésitez pas à me poser quelques questions .

Si quelqu'un a une idée, je prends.

Merci d'avance pour vos réponses.

[madefemere]

Bonjour,

Pourrais-tu essayer ce code :

Code :

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

1
2
3
4
5
date_deb = InputBox("Entrez une date de debut ")
insertion_fixe = "INSERT INTO table 1
SELECT *
FROM table 2
WHERE F.[Mdate du jour] Between #" & Format(date_deb;"mm/dd/yyyy") & "# And #" & Format(date_fin;"mm/dd/yyyy") & "#);"

[miniwho]

J'étais sure d'avoir déjà tenté ce code.
Pourtant ça fonctionne parfaitement.

Merci beaucoup




Ah ben non en fait j'avais inversé le jour et le mois ^^