bonjour,

je vous livre une partie de mon 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
21
22
23
24
25
26
27
28
29
30
31
32
33
For i = 1 To RS1L Step 1

ty = RS1.Fields("TYPE").Value
st = RS1.Fields("SOUS TYPE").Value
arg = RS1.Fields("REF").Value
    If arg = "NB" Then
    Else
        If ty = "PP" Then
            If st = "TR" Then
            x = 3
            Else
            x = 2
            End If
        ElseIf ty = "TR" Then
        x = 3
        ElseIf ty = "AF" Then
        x = 4
        End If
        For J = 1 To 8 Step 1
            If para(J, x) <> "" Then
            rec = para(J, x) & arg
                For k = 1 To 12 Step 1
                var = para(J, 1) & "(" & k & ")"
                champ = "champ" & k + 2
                set #var = RS1.Fields(champ).Value
                
                Next k
            Else
            End If
        Next J
    End If
RS1.MoveNext
Next i
Mon probleme est que je veut affecter a la variable dont le nom est contenu dans la variable "var" (type string) une valeur .

est ce que quelqu'un ici sait comment faire ?

merci

Franck