Création dossier et sous-dossier sous Excel

Bonjour,

J'annonce ne rien y connaître en macro ; j'ai tenté de copier-coller des macros "toutes faites" proposées sur ce forum mais elles ne correspondent pas entièrement à ce que je souhaite.

En effet, je souhaiterai savoir s'il est possible de créer des dossiers et sous-dossiers depuis un tableau Excel de ce type :

Date A - Compétition C - Poule F - Madame T - Monsieur U
Date B - Compétition E - Poule G - Madame V - Monsieur W
Date B - Compétition C - Poule H - Madame X - Monsieur Y

Résultat souhaité :

Dossier "Date" - sous-dossier "Compétition" - sous-dossier "Poule" - (et là ! je ne sais pas si c'est possible mais je tente !) sous-dossier "Madame-Monsieur".

Existerait-il un macro type que je pourrai utiliser pour chacun de mes tableaux hebdomadaires ??

Merci d'avance pour votre intérêt !

4 réponses

  1. Contributeur
    voilà, disponible 4 jours:

    http://www.cjoint.com/c/GLfn2OyUBiQ
    0
    1. Ah ben le temps que je lise votre message la page n'est plus disponible...
      0
      1. Contributeur
        voici un exemple:

        http://www.cjoint.com/c/GKCqfhLGmzQ
        0
        1. Contributeur
          Bonjour,

          voir ceci:

          https://excel-malin.com/codes-sources-vba/creation-dossiers-et-sous-dossiers-en-vba/

          Si tes données sont dans A1, B1, C1, D1
          et que tu veux créer tes dossiers dans le même dossier que ton classeur, tu remplaces:

          NouveauDossierAvecSousDossiers = "C:\Temp\MonDossier\MonSousDossier\Niveau_3\Niveau_4"


          par

            NouveauDossierAvecSousDossiers = ThisWorkbook.Path & "\" & Range("A1") & "\" & Range("B1") & "\" & Range("C1") & "\" & Range("D1")
          0
          1. Merci pour votre aide, cependant j'ai un msg d'erreur qui apparaît :
            "Erreur de compilation : Sub ou Function non définie" et la première ligne est alors surlignée en jaune ("Sub ExempleCreationDossierAvecSousdossiers()").
            0