Recherche nom de fichier
Ghizlane_9156
Messages postés
1
Statut
Membre
-
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 24281 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
A voir également:
- Recherche nom de fichier
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
1 réponse
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
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
