Discussion :

[FramanKalima]

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 :

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

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

[madefemere]

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,

[FramanKalima]

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

[madefemere]

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,

[FramanKalima]

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 :

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

DoCmd.DeleteObject acTable, "Nom de la table"

Merci encore une fois de plus.

Cordialement