Hi all,
I'm doing a word document with few macro to take datas from QC.
My problem is that I need the "%OK" data from tests but I don't know how to recover it from QC.

Actually I've this:

<font class="small">Code:</font><hr /><pre>
Dim TreeMgr As TestSetTreeManager
Dim RootFolder, FatherChildFolder, FatherFolder As TestSetFolder
Dim TestInstanceList, TestSetList As TDAPIOLELib.List
Dim Pourcent, i As Integer

Set TreeMgr = TDServerRessource.TestSetTreeManager
Set RootFolder = TreeMgr.Root

For Each FatherFolder In RootFolder.SubNodes
AddInfoTitle FatherFolder

If FatherFolder.SubNodes.Count &lt;&gt; 0 Then
For Each FatherChildFolder In FatherFolder.SubNodes
SearchFolder FatherChildFolder
Next FatherChildFolder
Set TestSetList = FatherFolder.FindTestSets("", False, "")
If Not (TestSetList Is Nothing) Then
SearchTestSet TestSetList
End If
End If
i = i + 1

Next FatherFolder

Private Sub SearchFolder(ByVal Folder As TestSetFolder)

Dim ChildFolder As TestSetFolder
Dim TestInstanceList, TestSetsList As TDAPIOLELib.List

Set TestSetsList = Folder.FindTestSets("", False, "")
If Not (TestSetsList Is Nothing) Then
SearchTestSet TestSetsList
End If

Exit Sub

Private Sub SearchTestSet(ByVal TestSetList As TDAPIOLELib.List)

Dim TestInstanceList As TDAPIOLELib.List
Dim TestSet As TestSet
Dim TSTestF As TSTestFactory

'Pour chaque Test Set
For Each TestSet In TestSetList
AddInfoTestSet TestSet

Set TSTestF = TestSet.TSTestFactory
Set TestInstanceList = TSTestF.NewList("")
If Not (TestInstanceList Is Nothing) Then
AddTestInstance TestInstanceList
<font color="red"> I want to have the %OK here but how </font>
End If
Next TestSet

Exit Sub
</pre><hr />