Discussion :

[ExcelLiod]

Bonjour à tous !

J'ai récupéré une bonne macro faite par un collègue qui permet la création de dossier et sous dossiers. Cependant je souhaiterais la faire évoluer et comme j'ai du mal avec les macros je n'y arrive vraiment pas.

Voici la macro le fichier est ci-joint :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim n, ligne, Tbl(), RepNiv(1 To 6)
Sub CreeArboRepertoire()
  Tbl = Range("A2:B" & [A65000].End(xlUp).Row).Value
  n = UBound(Tbl)
  niv = 1
  CréeRep Tbl(1, 1), niv
End Sub
 
Sub CréeRep(parent, niv) ' procédure récursive
chemin = ""
  RepNiv(niv) = parent
  For i = 1 To niv - 1
   chemin = chemin & RepNiv(i) & "\"
  Next i
  chemin = chemin & parent
  MkDir chemin
  For i = 1 To n
    If Tbl(i, 2) = parent Then CréeRep Tbl(i, 1), niv + 1
  Next i
End Sub

Je vous explique j'aimerais que cette macro puisse créer plusieurs dossiers d'une plage prédéfinie de la plage H27 à H40 dans le fichier . Je souhaiterais également que ces dossiers soit créer dans le dossier déjà existant prédéfinie dans les colonnes A2 et B3 "Z:\SCAN\Protégés".

Est-ce possible?

Merci d'avance pour votre aide

[patricktoulon]

a voir ton classeur c'est pas tres clair
peut etre que si tu nous donne un chemin complet créé on comprendra mieux ton tableau

exemple
c:\course au drive\ mars\ produit laitier\dessert\ yaourt.pdf
c:\course au drive\ mars\ produit laitier\ salé\buche de chevre.pdf
c:\course au drive\ mars\ produit laitier\ salé\coulomier.pdf

écris moi quelque exemples en prenant les donnée de ton tableau
se sera plus clair pour tout le monde

[unparia]

Bonjour
Je n'ouvre jamais de classeur tiers et n'ai donc pas ouvert le tien.
Je crois comprendre que tu veux créer dossier et sous-dossiers
Ceci (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
Private Sub CommandButton1_Click()
    SHCreateDirectoryEx 0, "c:\toto\titi\tata", ByVal 0&
End Sub

créera tous les dossiers/sous-dossiers nécessaires (n'écrasera pas ceux qui existeraient éventuellement déjà)

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub CreationDossier()
Dim sDossier As String
Dim sChaine As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Sub

[ExcelLiod]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub CreationDossier()
Dim sDossier As String
Dim sChaine As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Sub

Très bien ta macro. Mais comment puis-je définir les noms des dossiers a créer dans des colonnes ? Deuxième question comment mettre également des sous dossiers dans le dossier principal ?

Avec ta macro je souhaiterais mettre dans le dossier "Essai1" plusieurs dossiers qui ont eux même plusieurs dossiers...

Merci d'avance pour ta réponse

[unparia]

Deuxième question comment mettre également des sous dossiers dans le dossier principal ?

Mon message n'a donc été :
- soit carrément non lu
- soit lu et non expérimenté

Bon ...

[ExcelLiod]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub CreationDossier()
Dim sDossier As String
Dim sChaine As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Sub

Bonjour
Je n'ouvre jamais de classeur tiers et n'ai donc pas ouvert le tien.
Je crois comprendre que tu veux créer dossier et sous-dossiers
Ceci (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
Private Sub CommandButton1_Click()
    SHCreateDirectoryEx 0, "c:\toto\titi\tata", ByVal 0&
End Sub

créera tous les dossiers/sous-dossiers nécessaires (n'écrasera pas ceux qui existeraient éventuellement déjà)

Merci pour ta réponse cependant j'ai vraiment aucune idée d'où je dois mettre ce code...

[ExcelLiod]

Mon message n'a donc été :
- soit carrément non lu
- soit lu et non expérimenté

Bon ...

Merci pour ta réponse unparia cependant je n'arrive pas a utiliser ta macro désolé.

[unparia]

Merci pour ta réponse unparia cependant je n'arrive pas a utiliser ta macro désolé.

Tout ce dont tu as besoin t'a été donné.
Ce que tu demandes serait au-delà un code à copier/coller. Et encore : en t'indiquant où, très exactement.
Et que crois-tu que tu obtiendrais de plus en "rouvrant un topic" ? -->> rien de plus en ce qui me concerne personnellement.
Bonne chance.

[kiki29]

Salut, de la lecture : Support de cours complet pour le VBA d'Excel