Private Sub Worksheet_Change(ByVal Target As Range)
Dim sRuta As String, sImagen As String
On Error GoTo errores
' Definir el camino/la ruta a las fotos.
sRuta = "E:\Users\NonoZ\Documents\Mes Docs EXCEL\_Excel-Downloads\Frederio\Imagen\"
' Obtén el nombre de la imagen
sImagen = Sheets("chercher").Range("D4") & ".jpg"
' Esta bien
ActiveSheet.Shapes("foto").Fill.UserPicture (sRuta & sImagen)
Exit Sub
errores:
ActiveSheet.Shapes("foto").Fill.UserPicture (sRuta & sImagen)
MsgBox ("empleado no encontrado")
End Sub