Recherche nom de fichier
Ghizlane_9156
Messages postés
1
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Jai une liste de reference de photo dans la premiere colonne de mon fichier excel
Je souhaite faire une recherche de chaque reference de la colonne dans mon folder qui contient le nom de reference (sont au format png, mais les pjotos ont le meme nom de reference que ma liste dans ma premiere colonne du fichier excel)
je souhiate effectuer une recherchev mais comme base de données mon folder avec toutes les photos. Si la reference nest pas presente dans mon fichier dans ce cas je souhaite que dansla colonne 8 de mon fichier n message error apparaisse
si la reference existe dans mon fichier dans ce cas faire apparaitre la reference ou juste un yes
Les photos sont toutes rangees dans un meme dossier donc meme path
merci pour votre aide
Jai une liste de reference de photo dans la premiere colonne de mon fichier excel
Je souhaite faire une recherche de chaque reference de la colonne dans mon folder qui contient le nom de reference (sont au format png, mais les pjotos ont le meme nom de reference que ma liste dans ma premiere colonne du fichier excel)
je souhiate effectuer une recherchev mais comme base de données mon folder avec toutes les photos. Si la reference nest pas presente dans mon fichier dans ce cas je souhaite que dansla colonne 8 de mon fichier n message error apparaisse
si la reference existe dans mon fichier dans ce cas faire apparaitre la reference ou juste un yes
Les photos sont toutes rangees dans un meme dossier donc meme path
merci pour votre aide
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, un exemple:Option Explicit Private Sub chercherphotos() Dim dossier As String, colA As Range, onglet As Worksheet, ref As Range, ext As String Set onglet = ThisWorkbook.Sheets("photos") Set colA = Intersect(onglet.[A:A], onglet.UsedRange) dossier = ThisWorkbook.Path + "\" ext = ".png" For Each ref In colA If ref <> "" Then If Dir(dossier + ref + ext) <> "" Then ref.Offset(0, 7) = ref Else ref.Offset(0, 7) = "message error" End If End If Next ref End Sub
