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

misteryann · 26 Septembre 2017

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 · 26 Septembre 2017

Bonsoir.
Encadrez votre instruction comme ça :

VB:

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 · 27 Septembre 2017

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"

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

misteryann

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

Discussions similaires