Créer des dossiers à partir d'une liste Excel

Lucie59 -  
Bonjour,

Je dois créer une série de dossiers, basés sur les noms de produits dans une liste excel, afin d'y ranger les photos de chaque produit dans chaque dossier.

Inutile de vous dire que je n'y connais rien en Excel, ni maccro, ni rien du tout.
Je suis absolument nulle :)

Quelqu'un peut-il m'aider ?
La création des dossiers à partir des noms de produits est longue et fastidieuse…

2 réponses

  1.  fabien25000
    Bonjour,

    Difficile de donner une réponse précise avec si peu d'info... voilà quand même un code à adapter : 
    Private Sub CreaDossier()
    Dim I, derlig As Long
    Dim dossier As String
    
    derlig = Worksheets("NOMDELAFEUILLE").Range("A" & Rows.Count).End(xlUp).Row 'a adapter selon la colonne qui recoit la liste à traiter
    For I = 1 To derlig
        If Worksheets("NOMDELAFEUILLE").Range("A" & I).Value <> "" Then 'à adapter
            dossier = "C:\Users\Documents\" & Worksheets("NOMDELAFEUILLE").Range("A" & I).Value 'à adapter
            MkDir (dossier)
        End If
    Next I
End Sub


    0
    1. ccm81
      Bonjour

      Une solution à adapter
      https://www.cjoint.com/c/HJqoREF1aNB

      Cdlmnt
      0