deplacer un classeur vers un nouveau repertoire

[robby]

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

 

[Bricofire]

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

 

[Rai]

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)

 

[robby]

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