Modification d'une table liée

Bonjour jmde,
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub ModifNomChamp()
Dim db As Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
'se positionner dans la db dorsale
Set db = OpenDatabase("C:\...\Dorsale.mdb")
'se positionner sur la table
Set tbl = db.TableDefs("LeNomDelaTable")
'se positionner sur le champ
Set fld = tbl.Fields("LeNomActuelDuChamp")
'changer le nom
fld.Name = ("LeNouveauNomDuChamp")
'pour faire propre
Set db = Nothing
Set tbl = Nothing
Set fld = Nothing
End Sub