Bonjour,
J'aimerais changer ce que j'ai mis en dur par des variables, mais je ne sais pas comment faire ! Quelqu'un peut-il m'aider ? En fait, j'ai crée dans un autre des Balises(Entity,Name (Pour le Nom de la Table), Field, Column (Pour la Valeur initiale) et Label (pour la Valeur modifiable). Mon Programme fonctionne, quand les données sont inscrites en dures (Données en caractères Gras). Maintenant, j'aimerais que ces Valeurs soient des variables avec un système de Boucle ???
Merci de votre Aide, car je suis NUL en programmation... (Mais je me débrouille)...
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
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