Abrir pdf, el nombre del pdf esta en celda

pyrata · el 29 de agosto

Buenas Tardes antes que todo agradecer cualquier ayuda o sugerencia.

Bueno les comento tengo un combobox donde al elegir una opcion me despliega una serie de datos, dentro de esos datos tengo una ficha tecnica de un producto en particular, mi idea es que luego de mostrar esos datos la celda que contenga el nombre de la ficha tecnica que en forma de link y que me permita abrir la ficha.

Estas fichas estan en formato pdf.

Estuve haciendo algunas pruebas con codigo:



Sub CrearHyperlink()


Dim FolderName As String

FolderName = "C:\Users\Juan G\Desktop\Cristian\pdf\"


ActiveSheet.Hyperlinks.Add Anchor:=Hoja1.Range("C20"), Address:= _

FolderName & Hoja1.Range("C20").Value, TextToDisplay:=Hoja1.Range("C20").Value



End Sub

[/CODE]

Me funciona todo ok, me crea el link y cuando le doy clic me aparece una ventana:

Microsoft Office

Abriendo C:\Users\Juan G\.....

Algunos archivos pueden tener virus o perjudiciales para el equipo.Asegurese siempre de que este archivo provenga de un origen de confianza.

¿Desea Abrirlo?

YO LE DOY CLIC EN ACEPTAR Y ME APARECE ESTA OTRA VENTANA.

No hay ningun programa registrado para abrir este documento.

Alguna idea de porque me pasa esto y no me muestra la ficha tecnica del producto en pdf.

sergioacamposh · el 29 de agosto

Hola.

Probe tu código y sí me abre bien el documento PDF. Por favor valida en tu Windows que tengas un programa para abrir PDFs y que este sea el predeterminado.