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

Lucie59 -  
ccm81 Messages postés 11033 Statut Membre -
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 Messages postés 697 Statut Membre 59
     
    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
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

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

    Cdlmnt
    0