Discussion :

[ludal]

Bonjour à tous,

J'ai une base de données Access qui pointe sur un serveur distant. Les tables sont donc sur le serveur et je les ai lié avec ODBC.

Chaque table commence par odb.nomtable1, odb.nomtable2, etc. et pour que tout fonctionne je dois renommer toutes les tables en supprimant chaque fois la partie "odb."

Y'a-t-il un moyen pour renommer automatiquement toutes les tables en supprimant "odb." ?

Merci d'avance pour vos idées ou solutions!!
ludal

[gomi]

Question déjà évoquée récemment, elle n'est pas marquée comme résolue, mais c'est peut-être une 1ére piste !

http://www.developpez.net/forums/sho...d.php?t=222234

[ludal]

Oui merci, ton lien m'a bien aidé..

Pour les personnes qui auraient ce problème dans le futur, voici ce qu'il faut faire:

Créer un nouveau module et y coller ce code (modifier les éléments en rouge en fonction du besoin)

Public Sub RenTable()
Dim Tdf As DAO.TableDef
Dim Db As DAO.Database

Set Db = CurrentDb
For Each Tdf In Db.TableDefs

If Left(Tdf.Name, 4) = "dbo_" Then
Tdf.Name = Right(Tdf.Name, Len(Tdf.Name) - 4)
End If

Next
Set Tdf = Nothing
Set Db = Nothing

End Sub

ensuite, sous l'onglet "Outils" de Visual Basic, cliquer sur Références, et cocher "Microsoft DAO 3.x Object Library"

Et normalement, cela devrait aller comme sur des roulettes lorsque l'on exécute le module.