Sub CalculateResults() Dim tics As Integer ' Read current count DriverLINXSR1.Req_op = DlsrLib.Req_opConstants.DL_STATUS If DriverLINXSR1.Res_Sta_typeStatus = DlsrLib.Res_Sta_typeStatusConstants.DL_TIMERSTATUS Then tics = DriverLINXSR1.Res_Tim_count txtResults.Text = Str(tics) 'test si fichier ouvert [workbook1].[Feuil1].[A1].Value = Str(tics) If DriverLINXSR1.Res_Tim_status = DlsrLib.ResultStatusConstants.DL_done Then TimerPolling.Interval = 0 End If End If End Sub