Déplacer - supprimer un classeur

[FS69]

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

 

[Efgé]

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......

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

 

[FS69]

Un seul mot : MERCI

Cela répond exactement à mon besoin, j'ai bien pris note de votre alerte sur le coté irrémédiable de cette commande.