Ajouter des users dans QUALITY CENTER a travers macro excel

[micou1414]

Bonjour, quelqu'un peu m'aider pour ajouter des user(qui sont stocker dans un tableaux) directement dans Quality center en utilisant un macro excel


exp de mon tableau :

userName fullName email
gerard daniel gerd@gmail.com

et voici mon code :je me connecte a QC mais ils n'arrive pas a transferer les données

Sub Macro1()
'
' Macro1 Macro


'Connect to server
Dim QCConnection
Set QCConnection = CreateObject("TDApiOle80.TDConnection")
QCConnection.InitConnectionEx "http://XXXXX/qcbin"
QCConnection.login "XXXXX", "XXXXXX"
QCConnection.Connect "XXXXXX", "XXXXXXX"

MsgBox "connexion etablie ."


Dim listname As String
Dim listItem As String

i = 0
j = 1

listname = Selection.Cells(i, j).Text

If listname = "" Then
Call AddList(listname, tdc)

End If

listItem = Selection.Cells(i, j).Text

If listItem = "" Then

Else

On Error Resume Next
Call AddItem(listname, listItem, tdc)

On Error GoTo 0
End If

j = j + 1
i = i + 1

End Sub

Public Sub AddList(listname As String, tdc)

Dim custom As CUSTOMIZATION
Set custom = tdc.CUSTOMIZATION
Dim oLists As CustomizationLists
Set oLists = custom.Lists
oLists.AddList (listname)
custom.Commit



End Sub


Public Sub AddItem(listname As String, itemName As String, tdc)

Dim oCustomization As CUSTOMIZATION
Dim myList As CustomizationList
Dim listRoot As CustomizationListNode
Dim newListItem As CustomizationListNode
Dim CLists As CustomizationLists




Set oCustomization = tdc.CUSTOMIZATION
Set CLists = oCustomization.Lists
Set myList = CLists.List(listname)

Set listRoot = myList.RootNode
Set newListItem = listRoot.AddChild(itemName)
oCustomization.Commit



End Sub

End Sub


Merci de votre aide.