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) :
Il me demande la valeur du paramètre DPDdt dans une boite de dialogue..
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"
J'ai essayé pas mal de truc mais sans résultats. Quelqu'un aurait-il une idée ?
Merci d'avance à la communauté
Alex
Partager