Discussion :

[Paliur]

Bonjour à tous,

Je suis nouveau sur ce forum, et une bille en VBA.

J'espère que vous allez pouvoir m'aider, je vais essayer d'être le plus précis possible.

J'ai un tableau avec une colonne contenant des référence.
J'ai un dossier avec des images portant des nom comme ceci : referenceXL.jpg, referenceXL_3.jpg .... etc...

Mon objectif serait pour chaque ligne (et donc pour chaque référence), d'afficher la liste des images correspondant dans une autre cellule ainsi : reference.jpg;reference_2.jpg;reference_3.jpg etc...
Je n'ai besoin que des noms de fichier, pas de lien ou chemin vers le fichier.

A savoir : mon fichier Excel se trouve au même endroit que mon dossier contenant les images.


Pourquoi ne pas simplement faire un "concatener" :
Car en fait, sur certaines références il n'y a pas forcement le même nombre d'image.

Il faut donc pour chaque référence, retrouver toutes les images dont le nom commence par la dite reference.


J'espère que vous pourrez m'aider.

Merci d'avance.

Bien cordialement.

Florian.

[Philippe Tulliez]

Bonjour,
Je n'ai pas d'expérience avec le Mac
En VBA, la fonction Dir permet de faire cela. J'ai écrit une fonction utilisant Dir et qui renvoie une table contenant le nom des fichiers cherchés. Voir cette discussion nommée Ouvrir tous les fichiers d'un dossier

Pour concaténer plusieurs chaînes de caractères. Il y a la fonction Join (pour concaténer les éléments d'une table) ou l'opérateur de concaténation (&)

[Paliur]

Bonjour Philippe,

Tout d'abord merci pour cette réponse aussi rapide.

Cependant, comme je l'ai indiqué dans mon post initial, je suis une bille totale en VBA et j'avoue ne pas comprendre du tout votre fonction.
Par ailleurs, je ne saurais la modifier pour l'adapter à mon cas. Elle semble pourtant bien répondre à une partie de mon problème.

Merci

[Philippe Tulliez]

Bonjour,

Par ailleurs, je ne saurais la modifier pour l'adapter à mon cas.

Et pourquoi pas ?

Voici un exemple d'une procédure qui affiche tous les fichiers suffixés jpg présents dans le sous-répertoire Images dont le nom contient la chaîne de caractères présente dans la cellule A4 de la feuille active

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub TestFileList()
  Dim tbl(), Folder As String, SubFolder As String, Fullname As String, Elem As Integer
  Dim msg As String
  Folder = ThisWorkbook.Path      ' Répertoire où se trouve le classeur
  SubFolder = Folder & "\Images\"  ' Sous-répertoire où se trouve les images
  Fullname = SubFolder & "*" & Range("A4").Value & "*.jpg"
  tbl = FileList(Fullname)
  For Elem = 0 To UBound(tbl)
    msg = msg & vbCrLf & tbl(Elem)
  Next
  MsgBox msg
End Sub

Le code de la fonction FileList est affichée dans cette discussion

Autre exemple qui écrit en cellule B4 de la feuille active les noms des fichiers jpg en les concaténant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub TestFileList()
  Dim tbl(), Folder As String, SubFolder As String, Fullname As String, Elem As Integer
  Dim msg As String
  Folder = ThisWorkbook.Path      ' Répertoire où se trouve le classeur
  SubFolder = Folder & "\Images\"  ' Sous-répertoire où se trouve les images
  Fullname = SubFolder & "*" & Range("A4") & "*.jpg"
  tbl = FileList(Fullname)
  Range("B4").Value = Join(tbl, "-")
End Sub

[Paliur]

Merci beaucoup philippe de prendre le temps de m'expliquer.

J'ai adapté la fonction de manière à ce que ça corresponde à mes colonnes.
Et ça fonctionne !

Maintenant dernière étape, comment faire pour qu'elle fasse cela sur les 7000 lignes que j'ai ?
Je suppose qu'il y a une boucle à faire ?

[Philippe Tulliez]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Maintenant dernière étape, comment faire pour qu'elle fasse cela sur les 7000 lignes que j'ai ?
Je suppose qu'il y a une boucle à faire ?

Exactement

Plusieurs possibilités dont voici un exemple de code qui lit toutes les cellules de la colonne A de la feuille nommée Feuil1 en supposant que la liste commence à la cellule A1 et que les étiquettes de colonne sont sur la ligne 1 (début de lecture en A2) et qu'il n'y a pas de cellules vides dans cette colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub t()
  Dim rng As Range, r As Long
  Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion
  For r = 2 To rng.Rows.Count
   MsgBox rng.Cells(r, 1).Value
  Next
End Sub