Discussion :

[lemzo84]

Bonjour,

Je voudrais un code VBA qui puisse ramener dans une cellule excel le nom d'un fichier pdf contenant une chaine de caractere. Le fichier veint d'un folder que j'aurais au prealable indique dans une cellule.
Par exemple, j'ai le repertoire C:\Users\lucbreton\Downloads qui contient plusieurs pdf dont 1 contenant la chaine de caratere "abc123". Je souhaiterais que la fonction VBA puisse me ramener dans une cellule excel le nom du fichier total qui est 14523892abc123RTT.pdf
J'utilisais la fonction FILES() couplee avec INDEX MATCH et cela marchait dans Excel 2010. Depuis que j'ai la version excel 2016, cela ne marche plus.
Merci.

[Theze]

Bonjour,

Un exemple avec une fonction perso à mettre dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Function Fichier(Chemin As String, Nom As String) As String
 
    If Dir(Chemin & "*" & Nom & "*") <> "" Then Fichier = Dir(Chemin & "*" & Nom & "*") Else Fichier = "#VALEUR!"
 
End Function

Que tu peux utiliser de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=Fichier(A1;A2)

où A1 contient le chemin comme par exemple : "E:\Dossiers1\Dossier2\" (ne pas oublier l'anti-slash de fin !) et A2 contient une partie du nom comme tu donnes en exemple "abc123" si le chemin est faux ou qu'il n'y a pas de fichier correspondant, la fonction retourne la valeur d'erreur "#VALEUR!"

[lemzo84]

Ca Marche
Merci beaucoup.