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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 5 déc. 2017 à 14:55
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 5 déc. 2017 à 14:55
A voir également:
- Création dossier et sous-dossier sous Excel
- Mettre un mot de passe sur un dossier - Guide
- Si et excel - Guide
- Dossier démarrage - Guide
- Impossible de supprimer un dossier - Guide
- Liste déroulante excel - Guide
4 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
28 nov. 2017 à 16:26
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:
par
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")
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
28 nov. 2017 à 17:05
28 nov. 2017 à 17:05
voici un exemple:
http://www.cjoint.com/c/GKCqfhLGmzQ
http://www.cjoint.com/c/GKCqfhLGmzQ
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
5 déc. 2017 à 14:55
5 déc. 2017 à 14:55
voilà, disponible 4 jours:
http://www.cjoint.com/c/GLfn2OyUBiQ
http://www.cjoint.com/c/GLfn2OyUBiQ
28 nov. 2017 à 16:56
"Erreur de compilation : Sub ou Function non définie" et la première ligne est alors surlignée en jaune ("Sub ExempleCreationDossierAvecSousdossiers()").