Création de multiple répertoires dans XL

gilbert_RGI

XLDnaute Barbatruc

• 5 Octobre 2011

• #2

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 ?

 

Dernière édition: 5 Octobre 2011

Vote positif 0 Vote négatif

iStarOSX

XLDnaute Junior

• 6 Octobre 2011

• #3

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 6 Octobre 2011

• #4

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 6 Octobre 2011

• #5

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.

 

Pièces jointes

• Classeur1.xlsm

  21.2 KB · Affichages: 101
• Classeur1.xlsm

  21.2 KB · Affichages: 94
• Classeur1.xlsm

  21.2 KB · Affichages: 94

Vote positif 0 Vote négatif

iStarOSX

XLDnaute Junior

• 6 Octobre 2011

• #6

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

 

Vote positif 0 Vote négatif

iStarOSX

XLDnaute Junior

• 6 Octobre 2011

• #7

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.

Code:

 On Error Resume Next

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

Code:

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.

Code:

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 :

Code:

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 7 Octobre 2011

• #8

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

Code:

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

En Feuil2 on concatène via la macro avec

Code:

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)

Code:

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

Veut dire en gros

Code:

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..

Code:

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

Code:

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.

 

Pièces jointes

• Test.xlsm

  27.1 KB · Affichages: 76
• Test.xlsm

  27.1 KB · Affichages: 69
• Test.xlsm

  27.1 KB · Affichages: 68

Dernière édition: 7 Octobre 2011

Vote positif 0 Vote négatif

iStarOSX

XLDnaute Junior

• 8 Octobre 2011

• #9

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

 

Vote positif 0 Vote négatif

K

KROMS

XLDnaute Nouveau

• 15 Novembre 2011

• #10

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

 

Vote positif 0 Vote négatif