Bonjour,
Je suis tombé sur la fonction suivante qui a réglé mon problème identique au tien :
Public Sub setCaption(tblName$, fldName$, val$)
Dim pr As DAO.Property
On Error GoTo err_lbl
CurrentDb.TableDefs(tblName).Fields(fldName).Properties("Caption").Value = val
exit_lbl:
Exit Sub
err_lbl:
If Err.Number = 3270 Then
Set pr = CurrentDb.TableDefs(tblName).Fields(fldName).CreateProperty("Caption", dbText, val)
CurrentDb.TableDefs(tblName).Fields(fldName).Properties.Append pr
Else
MsgBox Err.Number & ": " & Err.Description, vbCritical, "MyApp"
Resume exit_lbl
End If
End Sub
Salut