1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Function donnee(Optional a1 As Variant, Optional a2 As Variant,_
Optional a3 As Variant, Optional a4 As Variant,_
Optional a5 As Variant, Optional a6 As Variant,_
Optional a7 As Variant, Optional a8 As Variant,_
Optional a9 As Variant, Optional a10 As Variant,_
Optional a11 As Variant, Optional a12 As Variant) As Variant
Dim coeff As Variant
On Error GoTo Handles_ Error
Call InitModule
If T2 Is Nothing Then
Set T2=CreateObject("t2.T2.1_0")
End If
Call T2.donnee(1,coeff, a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12)
donnee=coeff
Exit Function
Handle_Error:
donnee="Error in"&Err.Source &":"& Err.Description
End fonction |
Partager