Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

deplacer un classeur vers un nouveau repertoire

R

robby

Guest
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
 
B

Bricofire

Guest
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
 
R

Rai

Guest
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)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…