1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| If f.ReadLine = "RQ_REQ_AUTHOR" Then
Set theCustFields = objCustFields.Fields ("REQ") ' TABLE REQ
'*********************************************************
'* INTITIALISATION DES VARIABLES
'*********************************************************
i = 1
Do
'*********************************************************
'* IGNORER LE CHAMP...
'*********************************************************
Set aCustField = theCustFields(i)
i = i + 1
Loop while aCustField.ColumnName <> "RQ_REQ_AUTHOR"
'*********************************************************
'* AFFECTATION DU LABEL EN FRANCAIS
'*********************************************************
aCustField.UserLabel = "Créée par" 'f.ReadLine
End If
Wend
f.Close |
