XL 2013 déplacer un fichier problème de syntaxe??

[misteryann]

Bonsoir le forum

Je souhaite déplacer un fichier d'un répertoire vers un autre lorsque je clique sur le bouton "archiver".
Mais lorsque je clique sur ce bouton, ça bug à "Name Chemin & Fichier As NouvelleDestination & Fichier"

Dans la feuille "temp" les chemins sont correct, mais rien ne se passe sauf une erreur

si quelqu'un a une idée.
Cordialement.
Misteryann

 

[Dranreb]

Bonsoir.
Encadrez votre instruction comme ça :

On Error Resume Next
Name Chemin & Fichier As NouvelleDestination & Fichier ' c'est ici que ça coince !!!!!!!!!!!
If Err Then MsgBox Err.Description, vbCritical, "Archiver"

 

[Jacky67]

1. Bonjour,

S'il s'agit de déplacer des fichiers .PDF d'un répertoire à un autre
Une proposition simplifiée
Le classeur en pj a placer dans le répertoire "Travail"
Le répertoire "Travail" et les sous dossiers sont des répertoires comme indiqué dans la feuille 1 et doivent exister.

Dans cet exemple il n'est pas tenu compte des feuilles "BD" et "Temp"

**Oupss!!
Version V2 prend en compte les Sous-dossiers "MIME", "ENT 2", "ENT 3"