Bonjour à tous,

j'aimerai pouvoir changer le nom d'un champ dans une table que j'importe avec l'outil d'importation.

Certains noms importés doivent être changés comme par exemple un champ nommé "Prix public H#T# Euros" en "PrixPublicHT"

j'ai utilisé le code mis à disposition sur le forum, malheureusement ça ne fonctionne pas.

Je ne comprends pas la raison. Pouvez-vous m'aider ?

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function RenommerChamp(PTable As String, POld As String, PNew As String)
On Error GoTo err:
Dim db As DAO.Database
Dim VTable As DAO.TableDef
Dim VField As DAO.Field
 
Set db = CurrentDb
Set VTable = db.TableDefs(PTable)
 
Set VField = VTable.Fields(POld)
 
VField.Name = PNew
 
Set VField = Nothing
Set VTable = Nothing
 
Exit Function
err:
MsgBox "L\'action  renommer le champ a échoué"
End Function
Merci