DSolve[Derivative[1][y][x] == (E^x*(-3*E^x + 2*y[x]^(3/2))^3)/(4*Sqrt[y[x]]*(2 - 3*E^x + 2*y[x]^(3/2))),y[x],x]