As I am starting to use Mathematica, I would like to share with you a problem.

I have tried to solve an equation by using FindRoot but I get a very strange message.

I don't understand why Mathematica is not able to return the parameter value, because if I replace the parameter by its value, Mathematica is able to give the equation solution.

FindRoot is unable to solve for Y

FindRoot[(1 - (4/y)(((1/y)Integrate[x /(E^x - 1), {x, 0, y}] + y/2) - 1)) == 0.395544 , {y, -4.1}]

But if we replace Y with the correct value, we get the equation solution: 0.395544

(1 - (4/-4.1)(((1/-4.1)Integrate[x /(E^x - 1), {x, 0, -4.1}] + -4.1/ 2) - 1))