Saltar al contenido

Abrir pdf, el nombre del pdf esta en celda

publicado

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.

Featured Replies

publicado

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.

publicado
  • Autor

Gracias por tu respuesta, pero aun me sigue dando el mismo problema seguire investigando.

Un Abraso desde CHILE

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.