Slt !
Voici mon pb : Comment récupérer les variables ???
Public Function Control(ByVal DataBaseName As String, _
Optional ByVal TableName As String = Empty, _
Optional ByVal Champs0 As String = Empty, _
Optional ByVal Champs1 As String = Empty, _
Optional ByVal Champs2 As String = Empty, _
Optional ByVal Champs3 As String = Empty, _
Optional ByVal Champs4 As String = Empty, _
Optional ByVal Champs5 As String = Empty, _
Optional ByVal Champs6 As String = Empty, _
Optional ByVal Champs7 As String = Empty, _
Optional ByVal Champs8 As String = Empty, _
Optional ByVal Champs9 As String = Empty) As Integer
..............
If "Champs" & ii <> "" Then
.Fields.Append .CreateField("Champs" & ii, dbText)
End If
...........
end function
Merci