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.