Bonjour,
je suis un complet néophyte en la matière mais je dois résoudre un problème sous excel.
J'ai un fichier défini avec des références produits en colonne A (001;001a;001b;002;003;003a...)
et je cherche à associer et concaténer dans la colonne B les noms de fichier qui se trouvent dans un répertoire précis dont les noms de fichiers commencent par la même référence produit dans une même cellule séparé d'une virgule.
ex : mon_dossier, il y a les fichiers suivant :
001.jpeg
001 noir.jpeg
001 marron.jpeg
002.jpeg
003 noir.jpeg
003 blanc.jpeg
003k.jpeg
donc le résultat doit être :
en A1 : 001 et B1 : 001.jpeg,001 noir.jpeg,001 marron.jpeg
en A2 : 001a et B2 : 001.jpeg,001 noir.jpeg,001 marron.jpeg
en A3 : 001b et B3 : 001.jpeg,001 noir.jpeg,001 marron.jpeg
en A4 : 002 et B4 : 002.jpeg
en A5 : 003 et B5 : 003 noir.jpeg,003 blanc.jpeg,003k.jpeg

Pour l'instant j'ai déjà essayer cela, et j'ai compris le fonctionnement d'une macro, mais effectivement cela me donne la liste des fichiers dans la colonne A...mais je ne sais pas le modifier pour arriver a ce que je souhaite

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub repertorier_fichier()
    Dim Chemin As String, Fichier As String, URL As String
   'indique le répertoire contenant les fichiers
    Chemin = "C:\Doc\Katalog2017\"
    'Boucle sur tous les fichiers msg du répertoire.
 
   Fichier = Dir(Chemin & "*.*")
    numligne = 1
    Do While Len(Fichier) > 0
        Sheets("Feuil1").Range("B" & numligne).Value = Fichier
        numligne = numligne + 1
        Fichier = Dir()
    Loop
End Sub
Je sais pas si je suis suffisamment clair ;-)
Merci pour votre aide.

François