VB excel - Deplace fichier dans un répertoire en fonction du nom

Signaler
Messages postés
4
Date d'inscription
mercredi 9 février 2011
Statut
Membre
Dernière intervention
20 mai 2011
-
Messages postés
14790
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2021
-
Bonjour,

je souhaiterais trouver une macro qui me permette de déplacer des fichiers dans un répertoire, en fonction du nom du fichier et du nom du répertoire.

Je m'explique!
j'ai des fichiers qui vont se nommer de la façon suivante (les 2 premiers caractères étant le département)
01-test.xls
01-test1.xls
94-test.xls
95-xls

et j'aimerais que les fichiers soient déplacés dans le dossier de leur département
01-test.xls -> dans le dossier '01'
01-test1.xls -> dans le dossier '01'
94-test.xls-> dans le dossier '94'
95-xls-> dans le dossier '95'

Merci de votre aide

2 réponses

Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
Fait comme ça

sub MaMacro(PathFich as string,NomDuFich as string)
dim v_dossier as string
v_dossier = mid(NomDuFich,1,2) & ""
fileCopy(PathFich & NomDuFich , "C:" & v_dossier & NomDuFich)
end sub

l'apeele de la fonction sera genre

MaMacro "C:",01-test.xls


Voila je te l'aisse adapté si besoin car g tapé de mémoire. C K D O
Messages postés
14790
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2021
155
Bonjour,

Si la position du - est pas toujours au même endroit, utilises InStr ou Split.

Mon site