Mise à jour d'une table via VBA

Bonjour,

Je suis nouveau sur Access, et j'ai une demande à priori simple sur laquelle je bloque.
Je précise que je connais bien VBA pour Excel, mais je n'ai aucune idée de l'intégration des spécificités Access dans le code VBA.

En fait, je voudrais remplir une table (appelons là TblFichier) avec le nom des fichiers contenus dans un répertoire.
J'ai déjà la macro qui me permet de boucler sur les fichiers, mais je ne sais pas comment remplir la table... Je bloque sur la syntaxe.
Imaginons qu'elle soit composée des colonnes : Nom, Extension et Poids, et que j'ai déjà récupéré les données à introduire.

Comment dois-je procéder pour remplir ma table ?

Existe t'il une solution (simple) pour actualiser cette table ? (C'est à dire faire en sorte de ne pas recréer les enregistrements existants si la macro est lancée plusieurs fois par exemple)

Merci de votre aide.

Bonjour,

2 solutions pour créer les enregistrements dans la table : à l'aide de DAO ou avec SQL.

Vu que tu boucles déjà pour les fichiers autant utiliser DAO.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim db as dao.database dim rst as dao.recordset   set db = currentdb set rst = db.openrecordset("tblFichiers",dbopendynaset)   ...ici démarre ta boucle de fichier ...la tu récupères un fichier et tu le mets dans une variable. strFichierCourant = ... strFichierExtension = ... strFichierPoids = ...   'ici on commence par rechercher s'il existe dans la table rst.findfirst "Nomfichier=""" & strFichierCourant & """ AND Extension=""" & strfichierExtension & """" if rst.nomatch then 'il n'existe pas rst.addnew 'creation d'un nouveau record rst.fields("Nomfichier") = strFichierCourant rst.fields("Extension") = strfichierExtension rst.fields("poids") = strFichierPoids rst.update 'sauvegarde endif   ... on remonte au debut de la boucle   'et comme on est pas crado on ferme tout ce qu'on a ouvert. rst.close set rst = nothing set db = nothing

---

La méthode à base de sql est similaire à part qu'on ne fait pas de addnew, update mais on lance un requête insert via le code.
a mon avis vu qu'on attend que le disque fournisse les infos sur le fichier et qu'on écrit les fichiers 1 à 1, SQL n'a pas trop de plus-value.

Cordialement,

Korleone,

Citation:

---

Comment dois-je procéder pour remplir ma table ?

Existe t'il une solution (simple) pour actualiser cette table ? (C'est à dire faire en sorte de ne pas recréer les enregistrements existants si la macro est lancée plusieurs fois par exemple)

---

Si les informations du fichier ont changées, dois tu également mettre à jour les informations dans ta table ? Si tel est le cas, une toute petite modification s'impose dans le code proposé par Loufab :hola:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Dim db as dao.database dim rst as dao.recordset   set db = currentdb set rst = db.openrecordset("tblFichiers",dbopendynaset)   ...ici démarre ta boucle de fichier ...la tu récupères un fichier et tu le mets dans une variable. strFichierCourant = ... strFichierExtension = ... strFichierPoids = ...   'ici on commence par rechercher s'il existe dans la table rst.findfirst "Nomfichier=""" & strFichierCourant & """ AND Extension=""" & strfichierExtension & """" if rst.nomatch then 'il n'existe pas rst.addnew 'creation d'un nouveau record rst.fields("Nomfichier") = strFichierCourant rst.fields("Extension") = strfichierExtension rst.fields("poids") = strFichierPoids Else rst.edit Mise à jour du record rst.fields("poids") = strFichierPoids endif rst.update 'sauvegarde ... on remonte au debut de la boucle   'et comme on est pas crado on ferme tout ce qu'on a ouvert. rst.close set rst = nothing set db = nothing

---

JimBoLion

Ça marche d'enfer, et l'avantage c'est que ça m'a bien aidé à comprendre le principe et la syntaxe.

Merci à tous les 2 pour le coup de main !