Création dossier et sous-dossier sous Excel

Fermé
Maryloose Messages postés 2 Date d'inscription mardi 28 novembre 2017 Statut Membre Dernière intervention 28 novembre 2017 - 28 nov. 2017 à 15:31
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 5 déc. 2017 à 14:55
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 !
A voir également:

4 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 nov. 2017 à 16:26
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
Maryloose Messages postés 2 Date d'inscription mardi 28 novembre 2017 Statut Membre Dernière intervention 28 novembre 2017
28 nov. 2017 à 16:56
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
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 nov. 2017 à 17:05
voici un exemple:

http://www.cjoint.com/c/GKCqfhLGmzQ
0
Ah ben le temps que je lise votre message la page n'est plus disponible...
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
5 déc. 2017 à 14:55
voilà, disponible 4 jours:

http://www.cjoint.com/c/GLfn2OyUBiQ
0