Erreur d'exécution 70 : déplacer un fichier

Bonjour à tous

J'ai un fichier comprenant deux macros avec bouton

Lors de l'action de la première macro "enregistrer zone tri", je souhaite déplacer ce fichier d'un dossier à un autre en effaçant ce fichier dans le dossier initial.

J'ai trouvé une résolution de problème sur le site que j'ai appliqué mais j'ai un message d'erreur d'exécution '70' : Permission refusée

Pouvez-vous m'aider sur le sujet

Bonjour Leviel,

J'espère que tu veux plaisanter

Faire un ThisWorkbook.SaveCopyAs = Ok
Faire un FileCopy sur un fichier sur lequel tu es en train de travailler

Je rigole mais ce n'est pas possible à ta manière

@+

Bonjour BrunoM45

Merci d'avoir pris le temps de me répondre.

Peux-tu m'indiquer les possibilités ou la marche à suivre

Bonjour,

Il faudrait déjà que l'on puisse comprendre pourquoi tu souhaite faire ce genre de truc

LEVIEL a écrit :

Lors de l'action de la première macro "enregistrer zone tri", je souhaite déplacer ce fichier d'un dossier à un autre en effaçant ce fichier dans le dossier initial.

@+

Bonjour BrunoM45,

Le linge arrive en zone réception, ils doivent notifier le linge réceptionné sur un fichier Excel.

L'idée lors de l'enregistrement du fichier et qu'il puisse être déplacé dans un autre dossier afin que la personne en expédition puisse être alerté sur l'arrivée du linge à expédier.

Nous traitons plusieurs clients sans code barre donc plusieurs fichiers.

J'ai trouvé le code sur les forums

Nomfichier = ThisWorkbook.FullName
DestinationFile = "C:\Users\Famille LEVIEL\Desktop\Test\"
ThisWorkbook.SaveAs (DestinationFile & ThisWorkbook.Name)
Kill Nomfichier

Merci de ta critique constructive.

Re,

Tu auras le même souci avec ce code

Comme le fichier est ouvert et c'est celui qui lance la macro, tu auras une erreur 70

@+