Comprobar la exixtencia de un fichero

Prueba con:

Function HayFoto(rArtículo As Range) As String
If Dir("C:\prueba\" & rArtículo.Value & ".jpg") <> "" Then HayFoto = rArtículo.Value & ".jpg" Else HayFoto = ""
End Function

Tendrás que cambiar "C:\prueba\" por la ruta donde estén los ficheros .jpg

La sintaxis es:

=HayFoto(Celda)

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Josep" escribió en el mensaje news:

Hola a todos,

Tengo un fichero en excel con una lista de valores (codigo Articulo). Por
otro lado tengo una carpeta con ficheros .jpg con la foto de algunos
articulos.

Quiero crear una formula que compruebe si el articulo en cuestión tiene foto
o no, y si la tiene que escriba el nombre del fichero en una celda.

¿Como puedo hacerlo?

Gracias