Création de multiple répertoires dans XL

[iStarOSX]

Bonsoir les Excelnautes.

J'ai besoin de créer 1500 dossiers et les nommés sous windows.

J'ai la listes des nom de ces dossiers dans un tableau XL.

Au lieu de faire sous windows "Nouveau dossier" et nommé chaque dossier, j'aimerai bien automatiser tout cela avec XL.

J'ai bien trouvé un code qui me permet de renseigner le chemin du répertoire et le nom du dossier à créer, mais je doit encore faire chaque dossier un par un.

Je cherche donc un code VBA qui permet :
De prendre le chemin qui est renseigné dans la cellule A1 de ma feuille XL, puis de créer tout les dossiers en utilisant tout les noms de dossiers qui figurent dans la colonne B.

Je pense qu'il est nécessaire de passer par une boucle, mais je n'y connais rien en boucles. Au passage si vous connaissez un bon tutoriel pour expliquer les boucles au nuls !!!

Merci

 

[gilbert_RGI]

Re : Création de multiple répertoires dans XL

bonjour
ces dossiers se trouvent dans dans le C:\ ?
oups...... avec un MAC c'est peut-être différent ?

 

[iStarOSX]

Re : Création de multiple répertoires dans XL

Bonjour Gilbert_RGI

Euh non la je suis sous Windob (Malheureusement XL est mieux développé sous Windows que sous Osx, donc je suis retourné sous windows)

Pour ce qui est de mon appli XL, le chemin doit être celui qui sera écrit dans la cellule A1 de ma feuille.
Exemple D:\Dossiers\repertoires ou C:\Mes Documents\repertoires enfin celui qu'on veut !!!

Merci de intéresser a mon problème.

Bonne journée.

 

[MJ13]

Re : Création de multiple répertoires dans XL

Bonjour à tous

J'ai bien trouvé un code qui me permet de renseigner le chemin du répertoire et le nom du dossier à créer, mais je doit encore faire chaque dossier un par un.

Il faudrait peut-être donner ton code pour nous éclairer🙂.

 

[Hulk]

Re : Création de multiple répertoires dans XL

Hello iStar, Gilbert, MJ 🙂, Forum,

J'sais pas si j'ai tout compris, mais vois ce fichier joint.

 

[iStarOSX]

Re : Création de multiple répertoires dans XL

YYYYYYYYyyyyyyyyyyyyyyyeeeeeeeeeeeeeeeeeeeeeeeeeeeeehhhhhhhhhhhhhhhhhhhhh


Wel done Hulk, c'est pile ce que je cherchais


Merci a vous tous pour ce coup de main et plus particulièrement à Hulk pour la solution

 

[iStarOSX]

Re : Création de multiple répertoires dans XL

Désoler de t’ennuyer encore une fois Hulk, mais j'aimerai bien comprendre ton code histoire d'être un peu moins idiot.

J'ai bien essayer de décortiquer mais je ne comprend pas tout.

 On Error Resume Next

Ca ok sur une erreur on passe a la suite de la boucle

For Each c In Range([A2], [A65000].End(xlUp))

Pour les cellule non vide de la colonne allant de A2 a A65000 il exécute la boucle.

MkDir Range("C" & c.Row & ":C" & c.Row)

C'est la partie que je ne comprend pas tout a fait. Ok pour MkDir = création du répertoire .
Le reste je me doute que cela est le code qui sert a prendre l'info du chemin et du répertoire a créer, mais comment exactement.

Exemple si je veux qu'il prenne le chemin uniquement dans la cellue A1 (exemple 😀:\Desktop\Serie de dossier\) puis les noms de répertoires a créer dans la colonne B).

J'ai testé plusieurs trucs du genre :

For Each c In Range([B2], [B65000].End(xlUp))
        
        MkDir Range("A1" & c.Row & ":B" & c.Row)
    
    Next c

Mais je ne vois pas exactement comment fonctionne ton code.

Merci encore

 

[Hulk]

Re : Création de multiple répertoires dans XL

Hello,

Bon c'est la partie que j'aime le moins... Expliquer comment ça marche 😎

Je joins un autre fichier avec en Feuil2 la façon de faire avec deux colonnes, mais note que les deux façons sont identiques sauf qu'en Feuil1 on concatène A et B sur la feuille dans la colonne C (et qu'on va chercher ensuite dans la boucle avec

MkDir Range("C" & c.Row")

En Feuil2 on concatène via la macro avec

MkDir Range("A" & c.Row) & Range("B" & c.Row)

Note que ce que tu as essayé (mais on concatène plutôt comme ci-dessus)

MkDir Range("A1" & c.Row & ":B" & c.Row)

Veut dire en gros

Premier traitement -> Range("A12:B2")
Deuxième traitement -> Range("A13:B3")
Troisième traitement -> Range("A14:B4")
Quatrième traitement -> Range("A15:B5")
Cinquième traitement -> Range("A16:B6")

Si tu veux avec..

MkDir Range("A1" & c.Row & ":B" & c.Row)

'Il écrit à chaque traitement

Range("A1" + numéro de ligne de c + ":B" + numéro de ligne de c

Alors qu'avec

MkDir Range("A" & c.Row & ":B" & c.Row)

'Il écrit à chaque traitement

Range("A" + numéro de ligne de c + ":B" + numéro de ligne de c

Voili j'espère que c'est assez clair 🙄
J'ai aussi essayé de commenter au mieux les macros.

 

[iStarOSX]

Re : Création de multiple répertoires dans XL

Merci pour ton aide, c'est très sympa.

Je vais étudier tout cela

Merci beaucoup

 

[KROMS]

Re : Création de multiple répertoires dans XL

Waouh ! splendide !
J'aurais une question subsidiaire :
j'ai un lot de 5000 pages .htm ou .html ou .txt
pouvez-vous m'indiquer comment les "ventiler" automatiquement, par lot de 500 dans les répertoires créés ?
Mille mercis à vous