Re Bonsoir
Oui très bonne initiative Gérard !
Heuh Eddy tes URL tu les tapes ou tu as une macro qui les fabrique sur ta feuille ? Car en fait il doit surement y avoir un moyen de faire quelque chose, mais par contre çà impliquerait que dans chaque répertoire "artiste" il n'y ait qu'une seule image qui serait toujours nommée identiquement...
Juste en récupérant un code que j'ai sous la main (de Frédérique Sigonneau)... J'ai eu cette idée...
tous tes artistes sont bien dans un répertoire chacun ?
dans chaque répertoire tu veux récupérer une seule photo ?
donc tu nommes toutes ces photo "photo.jpg" (ou ce que c'est...)
et tu fais tourner cette macro :
Sub test()
TousLesDossiers "g:\musique", 0
End Sub
Sub TousLesDossiers(LeDossier$, Idx As Long)
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
idx = 10
For Each Flder In Dossier.SubFolders
Cells(Idx, 6).Value = Flder.Path & "\photo.jpg"
Idx = Idx + 1
Next
For Each sousRep In Dossier.SubFolders
TousLesDossiers sousRep.Path, Idx
Next sousRep
Set fso = Nothing
End Sub 'fs
J'ai fait tourner çà chez moi et j'ai eu çà :
C:\Mes documents\Ma musique\Depuis l'Internet\photo.jpg
C:\Mes documents\Ma musique\Led Zep\photo.jpg
C:\Mes documents\Ma musique\Rolling Stones\photo.jpg
C:\Mes documents\Ma musique\Van Halen\photo.jpg
C:\Mes documents\Ma musique\Van Halen\Van Halen\photo.jpg
à partir de là..... ce devrait être une base pour faire ce que tu veux, même le userform de Gérard peut être utilisé......
Sinon sur disciplus.... (de mémoire) l'Excellente Isabelle propose un code pour remonter sur une feuille un type de fichier précis (*.xls ou bien *.jpg etc...) avec leur "path" complet peut-être une piste aussi... Mais c'est plus compliqué.....
Voilà... Tu as du boulot maintenant ... Bon courage et bonne nuit à tous
@+Thierry