Création automatique de dossiers à partir d'une liste dans Excel

Bonjour mike the llama,

C'est très simple pour voir la macro :
- Clic droit sur l'onglet "Feuil1"
- choisir avec clic gauche "Visualiser le code"

Cela t'ouvres l'éditeur de macros sur la procédure concernée.
Elle utilise une fonction système pour choisir le répertoire de base,
puis si répertoire choisis, elle crée les différents répertoires en fonction des lignes présentes.

Le bouton sur la feuille est associé à cette procédure.

Bonjour,

Donc tu voudrais créer autant de répertoires que tu as de noms dans ta liste ?

Ne serait-il pas plus judicieux de créer des sous répertoires par lettre ?

La macro te demande de choisir le répertoire parent puis te crées les répertoires.

Si c'est bien cela je te renvoie le classeur prêt à fonctionner.

Bonjour,

Est-ce que tu penses que c'est faisable ?

Il n'y a pas grand chose d'impossible puisque "impossible n'est pas français !" depuis plus de 2 siècles.

Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure HTML des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile.

Plutôt que de générer autant de pages que de partenaires tu peux aussi le faire directement dans la page en javascript : à voir, selon ta page.

Bonjour AlbanR,

comment dois-je organiser ma feuille excel ?
Tu as un exemple dans le classeur ci-dessus mais l'on peut partir de ton organisation.
Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, se serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ et tu mets ici le lien obtenu.

Bonjour,

désolé pour ma réponse tardive...

Voici mon fichier dans lequel tu trouveras en col. A les dossiers et en col. B et c les sous dossiers associés.

http://cjoint.com/?DEAoaJSLQQL

Bonjour,

désolé pour ma réponse tardive...

Voici mon fichier dans lequel tu trouveras en col. A les dossiers et en col. B et c les sous dossiers associés.

https://www.cjoint.com/?DEAoaJSLQQL

Bonjour AlbanR,

Voila ton classeur (xlsm en raison de la macro) avec un bouton pour choisir ton disque et ton répertoire de base et créer tes répertoires.

https://www.cjoint.com/c/DEAsPYYbMUN

Il faut activer les macros (bouton sous le ruban) pour que cela fonctionne.

Un grand merci ! C'est le top !

Je me débrouille plutôt pas mal en excel mais je n'y pige rien en Macro, que me conseilles-tu pour commencer ? (site/bouquin/logiciel) ?

En fait en rajoutant tous tes tests, il manquait des "_" (prolongations de lignes) qui évitent des "end if" et venant après un for vba attends un next.

Bonjour romain06130,

Désolé mais la gestion des dossiers sur mac est complétement différente car les fonctions utilisables ne sont pas les mêmes : essaies de poser ta question dans le forum macos

Bonjour,

Tu as la réponse dans ta question : la macro est faite en VBA pour excel et sur libreoffice les macros doivent être refaites car VBA est propriété de microsoft.

Voici la macro modifiée :

Option Explicit

Public Sub Créer_reps()
Dim lig As Long, rep As String, nbc(12)
Dim CHX As FileDialog ' selection Repertoire
Set CHX = Application.FileDialog(msoFileDialogFolderPicker)
CHX.Show
On Error Resume Next
rep = CHX.SelectedItems(1)
If Err.Number <> 0 Then Exit Sub
For lig = 11 To Cells(Rows.Count, 1).End(xlUp).Row
MkDir (rep & "\" & Cells(lig, 1).Value)
If Err.Number = 0 Then nbc(1) = nbc(1) + 1 Else Err.Clear

MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 2).Value)
If Err.Number = 0 Then nbc(2) = nbc(2) + 1 Else Err.Clear
If Cells(lig, 3).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 3).Value)
If Err.Number = 0 Then nbc(3) = nbc(3) + 1 Else Err.Clear
If Cells(lig, 4).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 4).Value)
If Err.Number = 0 Then nbc(4) = nbc(4) + 1 Else Err.Clear
If Cells(lig, 5).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 5).Value)
If Err.Number = 0 Then nbc(5) = nbc(5) + 1 Else Err.Clear
If Cells(lig, 6).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 6).Value)
If Err.Number = 0 Then nbc(6) = nbc(6) + 1 Else Err.Clear
If Cells(lig, 7).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 7).Value)
If Err.Number = 0 Then nbc(7) = nbc(7) + 1 Else Err.Clear
If Cells(lig, 8).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 8).Value)
If Err.Number = 0 Then nbc(8) = nbc(8) + 1 Else Err.Clear
If Cells(lig, 9).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 9).Value)
If Err.Number = 0 Then nbc(9) = nbc(9) + 1 Else Err.Clear
If Cells(lig, 10).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 10).Value)
If Err.Number = 0 Then nbc(10) = nbc(10) + 1 Else Err.Clear
If Cells(lig, 11).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 11).Value)
If Err.Number = 0 Then nbc(11) = nbc(11) + 1 Else Err.Clear
If Cells(lig, 12).Value <> "" Then
MkDir (rep & "\" & Cells(lig, 1).Value _
& "\" & Cells(lig, 12).Value)
If Err.Number = 0 Then nbc(12) = nbc(12) + 1 Else Err.Clear
End If
Next lig
MsgBox nbc(1) & " Dossiers créés" & vbLf _
& nbc(2) & " Sous-dossiers 1 créés" & vbLf _
& nbc(3) & " Sous-dossiers 2 créés" & vbLf _
& nbc(4) & " Sous-dossiers 3 créés" & vbLf _
& nbc(5) & " Sous-dossiers 4 créés" & vbLf _
& nbc(6) & " Sous-dossiers 5 créés" & vbLf _
& nbc(7) & " Sous-dossiers 6 créés" & vbLf _
& nbc(8) & " Sous-dossiers 7 créés" & vbLf _
& nbc(9) & " Sous-dossiers 8 créés" & vbLf _
& nbc(10) & " Sous-dossiers 9 créés" & vbLf _
& nbc(11) & " Sous-dossiers 10 créés" & vbLf _
& nbc(12) & " Sous-dossiers 11 créés"
End Sub