Création de sous repertoire

[jjjerome]

Bonjour le Forum,


J'arrive a créer des répertoires avec le code ci-dessous, par contre j'ai une erreur si le répertoire est déjà créé, et je ne parviens pas a créer des sous répertoires (En colonne B).
Pouvez vous m'aider ??

Sub CREERdossier()
Dim cell As Range
Dim chemin As String, NomRep
chemin = Range("D1")

For Each cell In Range("A4:A" & Range("A65536").End(xlUp).Row)
If cell <> "" Then
NomRep = cell

MkDir chemin & cell.Value
End If
Next
End Sub

 

[Efgé]

Re : Création de sous repertoire

Bonjour jjjerome, Regarde si ce fichier peut t'aider (il faut l'enregistrer avant de lancer le code). Cordialement

 

[Efgé]

Re : Création de sous repertoire

Re, Erreur de fichier, le précédent nécessite un modele à copier. Voici le bon.... Désolé. Cordialement

 

[jjjerome]

Re : Création de sous repertoire

Bonjour Elgé et merci pour ta réponse,

Ta macro permet de créer 1 fichiers par jours et 1 dossier par mois.
Moi je cherche a créer plusieurs dossiers et sous dossiers (vide pour le moment et si ces dossiers ne sont pas déjà créé).
Mon fichier en exemple, avec les dossiers a créer en colonne 1 et les sous dossiers a créer en colonne B à D.

Je voudrais aussi que l'emplacement des dossiers à créer (indiqué en D1) soit confirmé par l'utilisateur, ou qu'il puisse séléctionner un nouveau chemin.

 

[jjjerome]

Re : Création de sous repertoire

Efgé, nos messages se sont croisés, j'avais effectivement créé un modèle pour tester ton fichier.
Ma réponse dans le précédent message. Merci

 

[Efgé]

Re : Création de sous repertoire

Re, Un exemple pour la création des répertoires et sous répertoires. Cordialement

 

[jjjerome]

Re : Création de sous repertoire

excellent, je vais essayer d'adapter ça a mon besoin !!

Pour confirmer le chemin de création des dossiers, il faudrait que je parte d'une userforme ?? J'ai regardé pour en créer une, mais parcontre, pour sélectionner le chemin, je ne vois pas comment faire... Y a t il une autre possibilité ?

 

[Efgé]

Re : Création de sous repertoire

Rem Sans userForm, avec une MsgBox. Cordialement

 

[jjjerome]

Re : Création de sous repertoire

Efgé, autres question, le fichier 'Creer-dossier...' et systématiquement copié dans le 1er dossier, comment éviter ça, je ne vois rien dans le code ?
Pourquoi le code est-il dans la feuille et pas de un module ??

Encore merci

 

[jjjerome]

Re : Création de sous repertoire

j'ai une erreur de compiltion :

If .SelectedItems.Count = 1 Then Repertoire = .SelectedItems(1)

 

[Efgé]

Re : Création de sous repertoire

Re, Dans l'ordre : 1 - Je ne vois pas comment, avec ma dernière proposition, le classeur peut être enregistré quelque part.... Vérifie ton code. 2- Le code est dans la feuille car j'ai utilisé un bouton activeX (pas formulaire). Il existe donc une "Private Sub CommandButton1_Click()". 3- Pour le plantage, ajoute la ligne

Dim Repertoire$

si ce n'est pas cela, ça viens peut être du fait que je suis sous 2003. Fait fichier / ouvrir et parcour des classeurs en enregistrant une macro pour voir ce que l'enregistreur te donne. tu pourras adapter la ligne en défaut. Cordialement

 

[MJ13]

Re : Création de sous repertoire

Bonjour jérôme, Efgé

Une autre façon de faire avec SHCreateDirectoryEx.

 

[jjjerome]

Re : Création de sous repertoire

Re,
Pour le 1/ pas de soci, c'était une erreur de ma part
Pour le 2/ Ok, est-ce mieux ainsi, est-ce que le fonctionnement serait le même si le code était dans un module (sub()... ?
Pour le 3/ avec la ligne ajouté il n'y a plus d'erreurs !!

Par contre si je fais 'oui' pour selectionner un aure dossier et que je fais ensuite annulé, les dossiers sont copié à la racine du disque... Est-ce possible de corigé ça ?
Sinon, pour tout le reste, c'est mieux que ce que j'aurais pu imaginé !!! Merci

 

[Efgé]

Re : Création de sous repertoire

Re, Bonjour MJ13 Pour le code, tu peux le mettre tel quel dans une sub de module, mais je n'en vois pas l'interet... Pour éviter de créer les dossiers en cas d'annulation, une nouvelle proposition. Cordialement

 

[jjjerome]

Re : Création de sous repertoire

Bonjour MJ13, merci également pour ta proposition.
Efgé, tout fonctionne parfaitement !

Est-il possible de ne pas avoir d'erreur si le chemin indéqué en D4 n'existe pas ?