Déplacer un classeur

[Dessimoz]

Bonjour tout le monde,

Je poste ce message après avoir chercher pendant un grand moment sans avoir trouvé mon bonheur :

Je vous explique ma situation :

Je travaille avec des classeurs qui se trouvent dans Crog/en cours
Quand j'ai fini de travailler avec ses classeurs (correspondant à des clients)
je les déplace manuellement dans le répertoire Crog/terminée

j'aimerai faire une macro me permettant que quand je quitte et que j'enregistre pour la dernière fois le classeur concernant un client, qu'il se déplace sous crog/terminée

j'ai essayé certaines choses mais rien ne fonctionne.


Si vous avez une idée, je vous en remercie énormément.

meilleures salutations.

Damien

 

[Dessimoz]

Re : Déplacer un classeur

Chaque fois que je pose une question...je trouve la réponse dans l'heure...c'est excellent : voici la réponse à mon problème :

Sub termine()
ChDir (ThisWorkbook.Path)
ChDir ".."
'Dim Source$, Destination$
' Source = CurDir & "prog\" & ThisWorkbook.Name
' Destination = CurDir & "prog\terminée\" & ThisWorkbook.Name
' FileCopy Source, Destination
'Sheets("Situation personnelle").Activate
dossier = CurDir & "prog\terminée\" & ActiveWorkbook.Name
'ActiveSheet.Unprotect
'ActiveSheet.Shapes("Rectangle 59").Select
'Selection.Delete
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs dossier
Kill CurDir & "prog\en cours\" & ActiveWorkbook.Name
Sheets("Situation personnelle").Activate
Range("a1").Select


l'opération consiste dans un premier temps à afficher le répertoire parent
puis à enregister le fichier sous le répertoire terminée
puis d'une fois enregisté, il supprime le fichier resté dans en cours.

salutations

Dess