Création automatique de dossiers et sous dossiers avec excel

Résolu
sysmo Messages postés 7 Statut Membre -  
 Pierre R -
Bonjour,
J'ai trouvé un sujet proche du mien mais j'ai un besoin particulier:

Voilà j'ai un tableau Excel ( https://www.cjoint.com/c/CDxuaAsrRbJ ) dans lequel figure l'arborescence (à 2niveaux) que je souhaite créer:

- La colonne A comporte le nom des dossiers à créer;
- La colonne B comporte les noms des sous dossiers à créer pour chaque dossier;
- les colonne B et C, D, E et F comportent les informations pour composer le nom de chaque sous dossier (Nom_sousDossier, Référence,Num_Référence, Date)

_Il faut qu'un dossier soit créer une seule fois;
_Un dossiers peut contenir 0 ou plusieurs sou dossiers;
_Le nom du dossier est écrit tel qu'il figure dans la colonne A;
_Le nom du sous dossier est écrit par la concaténation des autres colonnes et séparé par exemple par un ";".

__>Exemple:
D1566-99
|_____>SD_1;nom1;yz28;1589;15-05-2013
|_____>SD_2;nom2;yz29;1589;15-05-2013
|_____>SD_3;nom3;yz30;1589;15-05-2013
|_____>SD_4;nom4;yz31;1589;15-05-2013

Pour la création des dossiers et sous dossiers, demander au début de l'opération le chemin du
répertoire racine où effectuer les créations:

Voilà, merci pour votre aide.

3 réponses

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    Bonjour,

    Voici ton classeur avec la fonction qui crée tes répertoires et sous-répertoires :

    https://www.cjoint.com/c/CDxwOVWcNzE
    4
    1. ChrisB
       
      Merci beaucoup !!
      0
  2. sysmo Messages postés 7 Statut Membre 1
     
    Bonjour,
    C'est parfait!!!

    Merci infiniment gbinforme.
    0
  3. Ben
     
    Bonjour,
    Comment on fait pour créer un niveau supplémentaire ?
    J'ai l'impression que la fonction "If Not existe(rep & dos & "\", sds)" n'accepte pas d'argument supplémentaire...
    Merci !
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonjour,

      Comme dans tout code VBA, lorsque l'on veut faire autre chose, l'on modifie le code à sa convenance.
      0
    2. Ben
       
      Hello,
      Je suis d'accord mais je n'y arrive pas...
      En prenant modele sur les instructions déjà inscrites, je n'arrive pas à ajouter un niveau de dossier supplementaire.
      As tu une proposition de lignes de commande ?
      0
      1. Pierre R > Ben
         
        Bonjour, as tu réussi a rajouter un niveau supplémentaire ?
        0