Extraire le chemin de plusieurs fichiers & les organiser dans un xls (auto)

Bonjour,

je ne sais pas si c'est possible, mais je cherche à faire la chose suivante via Excel :

Mon fichier XLS comporte 5 colonnes, et la première ligne est déjà remplie.
Ce fichier XLS est dans un dossier Windows qui contient quelques dizaines d'images (uniquement des images). Le noms des images sont : 1.jpg ; 2.jpg ; 3.jpg ; 4.jpg etc.

Est-il possible en faisant une manipulation rapide dans Excel d'aspirer le chemin (path) de chacune de mes images triées par nom dans ma feuille Excel ?

Par exemple en A2 : C:/dossier/1.jpg
Dans la B2 : C:/dossier/2.jpg
C2: C:/dossier/3.jpg
D2: C:/dossier/4.jpg
E2: C:/dossier/5.jpg
A3: (on passe à la ligne suivante) : C:/dossier/6.jpg
B3: C:/dossier/7.jpg

etc. en fonction du nombre d'images contenu dans le dossier.

Sauriez-vous comment je peux faire cela SVP ?

Merci beaucoup pour votre aide :)

Bonjour

Dans un module VBA

Sub ListeFichiers()
  Dim numColonne As Integer
  Dim chemin As String, fichier As String

  chemin = "C:\dossier\" ' Chemin du dossier contenant les images
  fichier = Dir(chemin)
  Do While fichier <> ""
    numColonne = numColonne + 1 ' incrémente le numéro de la colonne
    Cells(2, numColonne) = chemin & fichier
    fichier = Dir ' Passe au fichier suivant
  Loop

End Sub

Attention au séparateur dans windows "\" pas "/"

Merci beaucoup :) ! Ca fonctionne très bien tout ça ^^ ! Et merci aussi pour le rappelle des slash à l'envers : \ et non / dans les adresses de dossiers Windows.

Au cas ou un autre novice débarquerait sur ce topic.

J'ai fais ALT+F11 dans Excel (cf : forum.excel-pratique[POINT]com/excel/creer-un-nouveau-module-119874#p730261 )

Puis j'ai activé le mode Développeur dans Excel : www.formuleexcel[POINT]com/comment-creer-et-executer-une-macro-vba-sur-excel/

Pour ensuite créer un bouton sur me petite feuille Excel : www.formuleexcel[POINT]com/comment-affecter-une-macro-vba-a-un-bouton-ou-une-image/

Par contre, la macro que tu m'as donné (très très gentiment, merci beaucoup) me créer une seule ligne avec tous les chemins.

Serait-il possible de passer à la ligne d'en dessous tous les 5 chemins ?
Comme ceci :
A2: C:\dossier\1.jpg
B2: C:\dossier\2.jpg
C2: C:\dossier\3.jpg
D2: C:\dossier\4.jpg
E2: C:\dossier\5.jpg
A3 (donc nouvelle ligne) : C:\dossier\6.jpg
B3: C:\dossier\7.jpg
etc.

Merci (encore)

Avec plaisir

Pensez à marquer le sujet comme résolu.

Vous avez loupé la fin de mon message ^^ :

Par contre, la macro que tu m'as donné (très très gentiment, merci beaucoup) me créer une seule ligne avec tous les chemins.

Serait-il possible de passer à la ligne d'en dessous tous les 5 chemins ?

Comme ceci :

A2: C:\dossier\1.jpg

B2: C:\dossier\2.jpg

C2: C:\dossier\3.jpg

D2: C:\dossier\4.jpg

E2: C:\dossier\5.jpg

A3 (donc nouvelle ligne) : C:\dossier\6.jpg

B3: C:\dossier\7.jpg

etc.

En effet, j'avais zappé la fin fin du message. Voilà qui corrige le tir.

Sub ListeFichiers()
  Dim numColonne As Integer, numLigne As Integer
  Dim chemin As String, fichier As String

  chemin = "C:\dossier\" ' Chemin du dossier contenant les images
  numLigne = 2
  fichier = Dir(chemin)
  Do While fichier <> ""
    If numColonne = 5 Then numColonne = 0: numLigne = numLigne + 1
    numColonne = numColonne + 1 ' incrémente le numéro de la colonne
    Cells(numLigne, numColonne) = chemin & fichier
    fichier = Dir ' Passe au fichier suivant
  Loop

End Sub

Merci beaucoup Yal :) Vraiment dingue d'avoir des réponses aussi rapides et qualitatives.

Je mets en résolu :)