A tester :
Dans cet exemple, je n'ai qu'un fichier Capture.pdf présent dans le répertoire. Si j'avais l'un et l'autre, ce serait le jpg qui serait pris en compte.
Fonction à mettre dans un module standard :
Function LienFichier(ByVal CheminComplet As String) As Variant
Dim I As Integer
Dim Fso As Object
Dim ExtensionType As String, NomSansExtension As String
Dim TabExtension As Variant
TabExtension = Array("jpg", "pdf") ' Liste illimitée...
Set Fso = CreateObject("Scripting.FileSystemObject")
ExtensionType = Fso.GetExtensionName(CheminComplet)
NomSansExtension = Mid(CheminComplet, 1, Len(CheminComplet) - Len(ExtensionType))
For I = LBound(TabExtension) To UBound(TabExtension)
If Fso.FileExists(NomSansExtension & TabExtension(I)) = True Then
LienFichier = NomSansExtension & TabExtension(I)
Exit For
End If
Next I
Set Fso = Nothing
End Function