columnaIdJira = Sheets("Params").Range("B4")
sUsername = Sheets("Params").Range("B2")
sPassword = Sheets("Params").Range("B3")
'Se codifica las credenciales en Base64 para poder realizar la conexión con Jira correctamente
sEncbase64Auth = EncodeBase64(sUsername & ":" & sPassword)
'Cria uma Issue
With JiraService
.Open "PUT", ""correct url"/jiraproy/rest/api/2/issue/"correctissuekey"/editmeta", False
.SetRequestHeader "Content-Type", "application/json"
.SetRequestHeader "Accept", "application/json"
.SetRequestHeader "Authorization", "Basic " & sEncbase64Auth
sData = " { ""fields"" : ""summary"": """ & sProject & """ }"
.Send (sData)
sRestAntwort = .ResponseText
sStatus = .Status & " | " & .StatusText
End With
Set JiraService = Nothing
' Tratamento JSON
sAux = Replace(sRestAntwort, "{", "")
MsgBox sRestAntwort
Aux = Replace(sAux, "}", "")
sAux = Split(sAux, ",")
sAux = sAux(1)
sAux = Split(sAux, ":")
sAux = sAux(1)
sAux = Replace(sAux, """", "")
Range("K" & iPuntero).Value = sAux
'Gestionamos las posibles respuestas que podemos recibir de Jira
If sStatus = "201 | Created" Then
sStatus = "petición generada correctamente"
MsgBox "peticion generada correctamente: " & sAux
End If
End Sub