Création automatique de dossiers à partir d'une liste dans Excel [Résolu/Fermé]

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) ?

Bonjour AlbanR,

que me conseilles-tu : ce n'est jamais facile de commencer et chacun a sa propre logique. Je continue de penser que l'aide de base se trouve dans excel en étudiant les propriétés et les méthodes des objets mais je t'avoue qu'il faut rentrer dedans la logique ce qui n'est pas nécessairement facile. Ensuite l'on est à l'heure d'internet et lorsque l'on un peu intégré la base, l'on trouve les astuces qui manquent plus facilement avec l'aide des bénévoles.
Il y a aussi des bouquins effectivement mais il faut vérifier qu'ils correspondent à ta démarche car souvent le rédacteur privilégie sa propre logique qui n'est pas nécessairement la tienne.
Bon courage et à bientôt peut-être.

Bjr,
Je souhaites rajouter d'autres sous-répertoires, mais à chaque fois il me dit qu'il manque for.
Merci de tona ide !

Bonjour verolyde,

S'il manque for c'est que tes modifications ne sont pas correctes : mets ton classeur avec tes modifications sur cjoint.com et le lien fourni ici pour que je puisse réparer ton problème.

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