Ranger des documents dans une arboresence

Ranger des documents dans une arboresence - VB/VBA/VBS - Programmation

Marsh Posté le 03-06-2014 à 18:03:31    

Bonjour à tous,
 
Je cherche a créer une macro qui me permette d'automatiser la création de dossier / sous dossier, etc... puis de déplacer un document dans ce nouveau dossier.
 
J'ai mes documents dans un dossier C:\Test\
Et j'ai dans un fichier xls, 4-5 colonnes avec pour les 4 premières des noms de dossier, sous dossier et sous sous dossier, et dans la 5ème le nom de document
 
En gros, il faudrait que la macro fasse:
 
For i to Line
If  
Ai & "\" & Bi & "\" & Ci & "\"
Exist then
Move Di to Ai & "\" & Bi & "\" & Ci & "\"
 
Else Then  
MKDir Ai & "/" & Bi & "/" & Ci & "/"
Move Di to Ai & "/" & Bi & "/" & Ci & "/"
 
End if
Next
 
Le tout si possible en vérifiant que les cases dossiers sont remplies, else, sauter au sous dossier d'après
 
J'ai commencé par la base, mais je suis rapidement perdu...
 

Code :
  1. Sub create()
  2.     Dim Chemin As String
  3.     Dim Ligne As Integer, i As Integer
  4.    
  5.     Ligne = ActiveSheet.UsedRange.Rows.Count
  6.     Chemin = Application.InputBox(Prompt:="where to create foldertree" )
  7.     Chemin = Chemin + "\"
  8.     For i = 2 To Ligne
  9.         MkDir Chemin & Cells(i, 1) & Cells(i, 2) & Cells(i, 3) & Cells(i, 4)
  10.   Next
  11. End Sub


 
Tout aide est la bienvenue.
 
Merci !


Message édité par mechsangoku le 03-06-2014 à 18:04:36
Reply

Marsh Posté le 03-06-2014 à 18:03:31   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed