problem exporting an Animate video

Hello friends…
Here’s my code:

movie = Animate[Plot[x + a, {x, 0, 1}, AxesOrigin -> {0, 0}], {a, 1, 5},
   AnimationDirection -> Forward, AnimationRepetitions -> 1, 
  AnimationRunning -> False];
Export["movie.avi", movie]

In the video in the Mathematica window, the sweep of the parameter ‘a’ goes from 1 to 5, and there’s a single sweep. However,
in the exported video, it appears a double sweep: from 1 to 5 and then is reversed, from 5 to 1. How to avoid this?? How to obtain
a video with the exact animation shown in the Mathematica window??

Thank you!!! :slight_smile:
Daniel

Thank you for your answer Simon, but that’s not my question :wink: