Déplacer un classeur

Dessimoz · 5 Avril 2007

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 · 5 Avril 2007

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

Déplacer un classeur

Dessimoz

XLDnaute Nouveau

Dessimoz

XLDnaute Nouveau

Discussions similaires