Création dossier et sous-dossier sous Excel
Maryloose
Messages postés
2
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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 !
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
-
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") -
voici un exemple:
http://www.cjoint.com/c/GKCqfhLGmzQ
-
-
voilà, disponible 4 jours:
http://www.cjoint.com/c/GLfn2OyUBiQ
