Discussion :

[ExcelLiod]

Bonjour à tous !

J'ai besoin de votre aide pour la finalisation d'un tableau qui me permet de créer des dossiers avec des sous dossiers prédéfini en colonne A,B,C.

Voici la macro :

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

Mes connaissances primaires en macro me permet d'utiliser cette macro que pour la création d'un dossier en je souhaiterai que cette macro me permette de créer plusieurs dossiers de la colonne H28 à 57 (voir tableau ci-joint).

Est-ce possible ? Merci d'avance pour votre aide !

[unparia]

Bonjour

Comme la plupart des développeurs prudents, je n'ouvre pas les classeurs tiers.
Cela fait d'ailleurs l'objet d'un avis signalé IMPORTANT sur ce forum.

La lecture de ton exposé permet par contre de "voir" ce dont il s'agit.
Cela a fait l'objet de plusieurs discussions résolues sur ce forum. Mot clef (pour y rechercher) : SHCreateDirectory

[ExcelLiod]

Bonjour

Comme la plupart des développeurs prudents, je n'ouvre pas les classeurs tiers.
Cela fait d'ailleurs l'objet d'un avis signalé IMPORTANT sur ce forum.

La lecture de ton exposé permet par contre de "voir" ce dont il s'agit.
Cela a fait l'objet de plusieurs discussions résolues sur ce forum. Mot clef (pour y rechercher) : SHCreateDirectory

Merci pour ta réponse mais quand je recherche avec le mot clef SHCreateDirectory et mes connaissances basiques en vba je ne trouve vraiment rien qui m'aide vraiment

[Marc-L]

Bonjour,

comme ce n'est pas une instruction VBA, pour plus d'information effectuer une recherche sur MSDN.

Sans compter l'instruction VBA   MkDir   bien présente elle dans l'aide VBA interne …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[kiki29]

Salut, avec qqch du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, _
                                              ByVal pszPath As String, _
                                              ByVal lngsec As Long) As Long
 
Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function

[pijaku]

Bonjour Philippe,

Ou plutôt quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, _
                                              ByVal pszPath As String, _
                                              ByVal lngsec As Long) As Long
 
Private Function CreationDossier(sDossier) As Long
    CreationDossier = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function