Délier des tables Excel avec VBA ACCESS

Bonjour à tous,

Je dois lier chaque jour des tables EXCEL sous ACCESSn(avec le même chemin et répertoire), pour actualiser des requêtes et tableaux de bord.

Les tables EXCEL changent presque tous les jours, donc je suis obligé de les délier et lier les tables actualisées pour pouvoir relancer mes requêtes et tableau de bord.

J'ai trouvé sur le site un code qui me permet de délier mes tables, mais j'ai un petit souci avec le code, non seulement il délie les tables, mais il supprime également toutes mes tables importées dans ACCESS.

Ci-dessous le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim BD As DAO.Database Set BD = CurrentDb Dim tb As DAO.TableDef For Each tb In BD.TableDefs If Left(tb.Name, 4) <> "MSys" Then If Len(tb.Name) > 0 Then DoCmd.RunSQL "DROP TABLE [" & tb.Name & "] ;" Debug.Print "effacement de " & tb.Name & " -=#=> " & tb.Connect End If End If Next tb

---

Comment je peux modifier le code pour qu'il ne supprime pas mes tables importées et mes requêtes crées, ou avoir un autre code qui me permettra de délier mes tables liées sans supprimer les tables importées.


Merci par avance pour vos retours.

Cordialement

Bonjour,

Je ne comprends pas pourquoi tu es obligé de recréer la liaison de ton application avec le fichier Excel "attaché" à chaque mise à jour du fichier Excel. Normalement la table "attachée" devrait être mise à jour automatiquement quand les données du fichier Excel changent.

Cordialement,

Bonjour,

Je suis obligé de recréer la liaison, parce que mes tables changent de nom en fonction de la date d'enregistrement.

C'est des fichiers qui sont déposés automatiquement dans un répertoire avec le nom REJET_date(jour enregistrement).xlsx



Cordialement

Bonsoir,

Est-ce que tu as déjà lu ce tuto qui permet de mettre en place des liaisons dynamiques de tables ? Il devrait te donner la solution je pense. Et ne t'inquiètes pas, pour des fichiers Excel, c'est la même chose.

Cordialement,

Bonjour Madefemere,

Merci beaucoup pour ton aide avec ce tuto, c'est très intéressant, il me permettra aussi de résoudre d'autres problèmes.

Ce code m'a permettra de délier les tables que je veux avant de faire une nouvelle liaison:

Code:

---

DoCmd.DeleteObject acTable, "Nom de la table"

---

Merci encore une fois de plus.

Cordialement