recherche nom de fichier

[BBX]

Bonjour,

Dans une cellule j'ai un échantillon d'un nom de fichier ex: 22664.
Je voudrais réussir à ouvrir avec une macro le fichier dont le nom comprend mon echantillon par ex : image-22664.jpg

Est ce possible ?

Merci de votre aide.

 

[Zon]

Salut,

Testes ceci en le collant dans un module standard:

Ton nombre ou texte est tapé en A1, on insére l'image dans la feuille , pour la visualiser utilises thisworbook.followhyperlinks t


Sub InsertionImg()
Dim T
T = ChercheFichier("*" & [A1] & ".jpg")
If Not IsEmpty(T) Then ActiveSheet.Pictures.Insert (T)
End Sub

'Tu peux modfiier Rep par C:\Mesimages et ne pas rechercher dans les sous répertoire en mettant sourep à false.
Function ChercheFichier(Extension$, Optional Rep$ = "C:\", Optional Sourep As Boolean = True)
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Rep
.Filename = Extension
.SearchSubFolders = Sourep
.Execute
ChercheFichier = .FoundFiles(1)
End With
End Function

A+++