Vba copie des fichie suivant le nom du dossier

[Bens7]

Bonjour a tous !
Je ne sais absolument pas comment faire ca!
Je souhaite deplacer des fichiers dans des sous dossier qui on le meme nom...
mais je vous est mis l'arboresance en piece jointe c'est plus simple le fichier a ouvrire c'est FACTURATION forum.xlsm

 

[sousou]

Re : Vba copie des fichie suivant le nom du dossier

Bonjour
Regarde la pièce jointe à déposer dans le fichier facturation.
Utilistation de filesystemobject


Il faudra ajouter quelque chose pour gérer les cas ou le fichier n'existe pas

A suivre

 

[Bens7]

Re : Vba copie des fichie suivant le nom du dossier

Tout d'abord mais malheuresement il ya un quelque petit soucci :
Les fichiers se deplace tous dans le dossier COURRIER mais je me suis peut etre mal exprimer dans le dossier COURRIER il doit se creer des sous dossiers : \COURRIER\1001 ; \COURRIER\1002 ; \COURRIER\1003
ensuite les fichiers ce copie dans leur dossier portant leur nom ce qui veut dire au final :
dans le dossier : \COURRIER\1003 nous avons :
1003.jpg
1003 (2).jpg
1003.pdf

merci

 

[sousou]

Re : Vba copie des fichie suivant le nom du dossier

Ok
je regarde ça demain, il me semblait bien qu'il manquait quelque chose
Erreur Samedi et dimanche ça va être possible, mais si tu patientes à lundi??

 

[sousou]

Re : Vba copie des fichie suivant le nom du dossier

Re
En fait j'ai un peu de temps alors voici la pièce jointe.
les fichiers sont déplacés et non copier.
A suivre.....

 

[Bens7]

Re : Vba copie des fichie suivant le nom du dossier

Bon tout d'abord merci beaucoup ca marche nikel j;ai cependant modiifer en fso.copyfile
mais j'un probleme j;ai essayer par moi meme de rajouter un autre document a rajouter a chaque repertoire creer (le meme document pour tous les sous dossiers 1001,1002,1003) comme une lettre de remerciment .
J;ai donc rejouter cettre ligne :

'déplacement DET
fso.copyfile "C:\Documents and Settings\pc-maison\Bureau\FACTURATION FORUM\FACTURATION FORUM\DOCUMENTS\DOC\DET.docx", chemin & "COURRIER\" & facture.Name & "\" & fich & ".pdf"

J'ai bien verifie le chemin il est bon mais ce document DET.docx ne se coppie pas dans les sous dossiers ...😡

 

[sousou]

Re : Vba copie des fichie suivant le nom du dossier

Bonjour
En utilisant copyfile, tu n'as besoin que du répertoire destination
essaie ceci et profite en pour modifier les autres copyfile
fso.copyfile "C:\Documents and Settings\pc-maison\Bureau\FACTURATION FORUM\FACTURATION FORUM\DOCUMENTS\DOC\DET.docx", chemin & "COURRIER\" & facture.Name & "\"

 

[Bens7]

Re : Vba copie des fichie suivant le nom du dossier

je suis desole mais j;ai essayer le chemin sa passe pas j';ai modifier les chemin directement pour etre sur ca marche pas sa bug a cette ligne :

fso.copyfile "D:\MA SOCIETE\DOCUMENTS\DOC\DET.docx", "D:\MA SOCIETE\COURRIER\" & facture.Name & "\"

donc de : D:\MA SOCIETE\DOCUMENTS\DOC\DET.docx
a : D:\MA SOCIETE\COURRIER\1001\

 

[sousou]

Re : Vba copie des fichie suivant le nom du dossier

Peux-tu envoyer ton fichier

 

[Bens7]

Re : Vba copie des fichie suivant le nom du dossier

Chui vraiment c.... \DOCUMENT\.... sans "S" !!!
desole et merci encore !