Déplacer - supprimer un classeur

FS69

XLDnaute Nouveau
Bonjour,

Je souhaiterais savoir comment faire via une macro pour déplacer un classeur présent dans un dossier vers un autre dossier puis supprimer ce classeur du dossier source. Je souhaite que cette commande s'applique sur le classeur ouvert (j'affecterais la macro à un bouton de commande).

Par exemple, test1 dans dossier Envoi doit aller dans réception avec le même nom de fichier, la macro doit fonctionne aussi si j'ai un fichier s'appelant toto24

Je suis complètement novice en vba et généralement je récupère des macros sur internet que j'essaye d'adapter à mon besoin mais cette fois ci je ne trouve rien ou je n'arrive pas à adapter de macro.

La seule macro que j'ai trouvé qui semble correspondre est celle ci mais je n'arrive pas l'adapter (message d'erreur erreur d'exécution '52' Nom ou numéro de fichier incorrect)

Sub Depl()
'
' Depl Macro
'
DestinationFile = "C:\Users\******\Desktop\Réception\"
nomFichier = Dir("Thisworkbook")
sourceW = "C:\users\******\Desktop\Envoi\"
Do While Len("Thisworkbook") > 0
FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
Kill sourceW & nomFichier
nomFichier = Dir
Loop
End Sub

Je remercie par avance la ou les personnes qui pourront m'aider sur ce sujet
 
Solution
Bonjour FS69 et bienvenu sur le forum

Une proposition.
ATTENTION ! Il faut faire des tests sur une copie de ton classeur. Le Kill est irrémédiable......

Code:
Sub Depl_2()
Dim Nomfichier$, DestinationFile$
Nomfichier = ThisWorkbook.FullName
DestinationFile = "C:\Users\******\Desktop\Réception\"
ThisWorkbook.SaveAs (DestinationFile & ThisWorkbook.Name)
Kill Nomfichier
End Sub

Cordialement

Efgé

XLDnaute Barbatruc
Bonjour FS69 et bienvenu sur le forum

Une proposition.
ATTENTION ! Il faut faire des tests sur une copie de ton classeur. Le Kill est irrémédiable......

Code:
Sub Depl_2()
Dim Nomfichier$, DestinationFile$
Nomfichier = ThisWorkbook.FullName
DestinationFile = "C:\Users\******\Desktop\Réception\"
ThisWorkbook.SaveAs (DestinationFile & ThisWorkbook.Name)
Kill Nomfichier
End Sub

Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof