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

Fermé

Lucie59 - 16 oct. 2018 à 10:41
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 16 oct. 2018 à 16:44

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…

A voir également:

Comment créer des dossiers à partir d'une liste excel
Liste déroulante excel - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Créer un compte gmail - Guide
Créer un compte google - Guide
Créer une adresse hotmail - Guide

2 réponses

Réponse 1 / 2

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
16 oct. 2018 à 16:15

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

Réponse 2 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
16 oct. 2018 à 16:44

Bonjour

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

Cdlmnt

Newsletters