Discussion :

[Alex FPH]

Salut à tous,

Je débute en VBA et je galère sur un projet :

Contexte : J'importe des fichiers texte dans des tables temporaires puis je les compile sur un master que je met à dispo des utilisateurs.

Je voudrais extraire, dans un nouveau champ, la date de dernière modif des fichiers texte que j'importe. La requête MAJ ne me permet pas, avec le générateur, d'utiliser DateHeureFich donc je m'essaye au VBA (soyez gentil svp) :

Code :

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

1
2
3
4
5
6
7
8
9
10
'J'arrive à créer un nouveau champ date "DateImport" :
DoCmd.RunSQL "ALTER TABLE ExpeditionsDPD ADD COLUMN DateImport date"
 
'J'arrive à créer ma variable et à afficher la valeur dans Msgbox :
Dim DPDdt As Date
DPDdt = FileDateTime("\\fr-fs1\shared\TRANSPORTEUR\EXAPAQ\ExpeditionsDPD.txt")
MsgBox "Fichier modifié le " & DPDdt, vbInformation
 
'Mais je n'arrive pas à coller cette valeur dans le nouveau champ DateImport pour tous les enregistrements :
DoCmd.RunSQL "UPDATE ExpeditionsDPD SET DateImport = DPDdt"

Il me demande la valeur du paramètre DPDdt dans une boite de dialogue..

J'ai essayé pas mal de truc mais sans résultats. Quelqu'un aurait-il une idée ?

Merci d'avance à la communauté

Alex

[Jean-Philippe André]

Salut,

dans ton instruction tu passes un libelle, pas la valeur qui t'interesse.
De plus, il faut voir que ta valeur est de type Date donc il faut adapter le code avec le format #MM/DD/YYYY#
Ta syntaxe devra donc etre la suivante :

Code :

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

DoCmd.RunSQL "UPDATE ExpeditionsDPD SET DateImport = #" & Format(DPDdt,"MM/DD/YYYY") & "#"

[madefemere]

Bonjour,

Vu que DPDdt est un variable dans ton code VBA, il te le faut sortir de ton expression SQL en tenant compte du fait que c'est une date. Donc le mettre entre # et utiliser plutôt le format US pour être sûr de la valeur envoyée.
Ce qui donnerait pour la dernière ligne :

Code :

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

DoCmd.RunSQL "UPDATE ExpeditionsDPD SET DateImport =#" & Format(DPDdt,"yyyy/mm/dd") & "#"

Cordialement.

[Alex FPH]

Hello

Super, ça marche

ET en plus c'est logique et ça m'apprend quelque chose.

Merci