Bonjour à tous et toutes,
Vous trouverez une proposition, ci-dessous le code a appliquer à un bouton.
Les experts de cet excellent site feront beaucoup mieux:
Public Lignefin As Variant
Public Nom As String
Public Où As String
Public Extenssion As String
Sub test()
Lignefin = Feuil1.Range("a65536").End(xlUp).Row
Où = "c:"
Extenssion = ".jpg"
For a = 1 To Lignefin
Feuil1.Cells(a, 2).Select
ActiveSheet.Cells(a, 2)= Recherche(Feuil1.Cells(a, 1), Où, Extenssion)
Next
End Sub
Public Function Recherche(Source0, Source1, Source2)
With Application.FileSearch
.LookIn = Source1
.Filename = Source0 & Source2
If .Execute > 0 Then
Recherche = .FoundFiles(1)
Else
Recherche = "Non trouvé"
End If
End With
End Function
Bonne journée et bon Dimanche
Cdt
Air_2