Dupliquer un dossier selon une liste de noms dans une feuille

Le
kiss
Bonjour,
Je suis directeur d'un collège qui compte actuellement 2 classes de
6ème. L'année prochaine, 2 classes de 5ème s'ajouteront, puis 2
classes de 4ème et 2 classes de 3ème enfin.

Mon problème : j'ai monté un mini programme pour la gestion des notes
des élèves. je voudrais avoir une macro qui me permet de dupliquer un
repertoire à partir d'une liste de noms saisie dans la feuille INDEX
qui se trouve dans le classeur ACCUEIL.

Exemple: Arborescence du mini programme que j'ai monté

C:NOTES
ACCUEIL.XLS
ANNEE1
6emeA
6emeB

l'année d'après, je devrais avoir :

C:NOTES
ACCUEIL.XLS
ANNEE1
6emeA
6emeB
ANNEE2
6emeA
6emeB
5emeA
5emeB

La macro me permettra d'ajouter automatiquement un dossier année et
ses sous-dossiers à partir d'une liste de noms saisie dans la feuille
INDEX dans le classeur ACCUEIL.

J'espère que je me suis fait bien expliquer pour que vous compreniez
mon problème pour pouvoir m'aider.
Je suis ouvert à toute autre proposition.
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20221011
Bonjour Kiss,

Voici une macro qui crée tous les répertoires que tu indiqueras dans la ligne de commande.
Si ils existent déjà, elle ne va pas les dédoubler !

La macro va créer le chemin complet indiqué par la variable Chemin.
Ne pas oublier d'adapter le nom de la feuille dans la procédure.

'----------------------------------------
Sub test()
Dim Chemin As String, Commande As String

'En supposant que tes répertoires sont inscrits dans une
'cellule de la feuille "Feuil1". Tu indiques les cellules de ton choix
With Worksheets("Feuil1") ' Nom de la feuille à adapter
Chemin = "c:" & .Range("A1") & "" & .Range("A2") & "" & .Range("A3")
End With

'à titre d'exemple :
'Chemin = "c:AAADenisDanieltoto"

'S'assurer d'être sur le bon lecteur où les répertoires
'doivent être créé, ici, on est sur le lecteur "C"
ChDrive "C"

Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0

End Sub
'------------------------------------------


"kiss"
Bonjour,
Je suis directeur d'un collège qui compte actuellement 2 classes de
6ème. L'année prochaine, 2 classes de 5ème s'ajouteront, puis 2
classes de 4ème et 2 classes de 3ème enfin.

Mon problème : j'ai monté un mini programme pour la gestion des notes
des élèves. je voudrais avoir une macro qui me permet de dupliquer un
repertoire à partir d'une liste de noms saisie dans la feuille INDEX
qui se trouve dans le classeur ACCUEIL.

Exemple: Arborescence du mini programme que j'ai monté

C:NOTES
ACCUEIL.XLS
ANNEE1
6emeA
6emeB

l'année d'après, je devrais avoir :

C:NOTES
ACCUEIL.XLS
ANNEE1
6emeA
6emeB
ANNEE2
6emeA
6emeB
5emeA
5emeB

La macro me permettra d'ajouter automatiquement un dossier année et
ses sous-dossiers à partir d'une liste de noms saisie dans la feuille
INDEX dans le classeur ACCUEIL.

J'espère que je me suis fait bien expliquer pour que vous compreniez
mon problème pour pouvoir m'aider.
Je suis ouvert à toute autre proposition.
Publicité
Poster une réponse
Anonyme