deplacer un classeur vers un nouveau repertoire

Bonjour,
J ai une macro qui ouvre differents classeur en fonction des differentes references de travail.
Elle ecrit dedan.
Mais j aimerais que quand elle a fini sa tache (elle a ecrit tout ce qu'elle avait a ecrire). Elle deplace le classeur vers un nouveau repertoire.

Pour le moment la seul chose que je sache faire est de l enregistrer sous un nouveau repertoire, mais cella laisse l ancien classeur dans un repertoire il n a plus rien a y faire. Surtout que si il y reste, cella pose des probleme.

explication
repertoire d origine: C:/refs/A.xls
quand la ref A est epuise
nouveau repertoir C:/refs/refs-epuise/A.xls

Merci d avance pour vos conseil et votre aide.
Robby

Bonjour,

Ton approche est bonne je pense, il faut juste effacer l'ancien (non ouvert) dans le répertoire voulu, voit l'instruction Kill (porte bien son nom celle-là) dans l'aide VBA.

bon courage,

Bfr

Bonjour Robby,

Avant d'enregistrer mémorise le nom du classeur actif,
ensuite, enregistre sous un autre nom,
puis efface l'ancien fichier

Ancien$=ThisWorkbook.Path & "\" & ThisWorkbook.name
ThisWorkbook.SaveAs "C:\refs\refs-epuise\A.xls"
Kill Ancien


Bonne continuation


Rai

P.S. : Attention à tes / et \, ne pas confondre ;o)

Merci Bricofire
Merci Rai.
Les deux memes solutions, qui s adaptent tres bien a ce que j ai.
Merci.