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:
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.
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
Merci par avance pour vos retours.
Cordialement
Partager