Abrir pdf

Haber amigos he encontrado esto:

Sub test1()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "e:\prueba.pdf"
End Sub

que me funciona pero desearia pulirlo un poco con vuestra ayuda. Quiero que
el nombre del archivo para abrir lo coga de la celda A11 y que la carpeta
sea algo asin "\fichas\ a11".


"Antonio" escribió en el mensaje
news:

Hola amigos. Deseria saber si existe alguna forma de poder abrir dese una
hoja de excel un archivo PDF. La forma que me gustaria que se pudiera
hacer es mediante un botón en la hoja.

hola, Antonio !

prueba por funcion de hoja de calculo (p.e.)...
=hipervinculo("c:uta y\sub carpetas\donde esta\el archivo.pdf","texto en la celda...")

si suponemos que en la celda A11 pones solo el nombre del archivo (p.e. prueba.pdf)
y suponemos que la ruta es siempre la misma (p.e. c:\fichas\)
=hipervinculo("c:\fichas\"&a11,"abrir "&a11)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Haber amigos he encontrado esto:
Sub test1()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "e:\prueba.pdf"
End Sub
que me funciona pero desearia pulirlo un poco con vuestra ayuda.
Quiero que el nombre del archivo para abrir lo coga de la celda A11 y que la carpeta sea algo asin "\fichas\ a11".

... existe alguna forma de poder abrir dese una hoja de excel un archivo PDF.
La forma que me gustaria que se pudiera hacer es mediante un boton en la hoja.

Gracias por la contestación . Al final buscando por la red y, aunque no se
nada de codigo, pude mezclar varias respuestas del foro y me salio esto:
Ruta = Range("a8")
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\fichas\" & Ruta

que me funciona perfectamente, aunque si se puede mejorar acepto
sugerencias.

Saludos


"Héctor Miguel" escribió en el mensaje
news:

hola, Antonio !

prueba por funcion de hoja de calculo (p.e.)...
=hipervinculo("c:uta y\sub carpetas\donde esta\el archivo.pdf","texto en
la celda...")

si suponemos que en la celda A11 pones solo el nombre del archivo (p.e.
prueba.pdf)
y suponemos que la ruta es siempre la misma (p.e. c:\fichas\)
=hipervinculo("c:\fichas\"&a11,"abrir "&a11)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Haber amigos he encontrado esto:
Sub test1()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "e:\prueba.pdf"
End Sub
que me funciona pero desearia pulirlo un poco con vuestra ayuda.
Quiero que el nombre del archivo para abrir lo coga de la celda A11 y que
la carpeta sea algo asin "\fichas\ a11".

... existe alguna forma de poder abrir dese una hoja de excel un archivo
PDF.
La forma que me gustaria que se pudiera hacer es mediante un boton en la
hoja.

Haber que me surge una duda, como puedo modificar el código para que si en
"A8" no ahi datos, osea esta vacio, al pulsar el botón no pase nada o bien
de un mensaje que diga" NO AHI NADA PARA MOSTRAR".

Saludos.
"Antonio" escribió en el mensaje
news:

Gracias por la contestación . Al final buscando por la red y, aunque no se
nada de codigo, pude mezclar varias respuestas del foro y me salio esto:
Ruta = Range("a8")
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\fichas\" & Ruta

que me funciona perfectamente, aunque si se puede mejorar acepto
sugerencias.

Saludos


"Héctor Miguel" escribió en el mensaje
news:

hola, Antonio !

prueba por funcion de hoja de calculo (p.e.)...
=hipervinculo("c:uta y\sub carpetas\donde esta\el archivo.pdf","texto
en la celda...")

si suponemos que en la celda A11 pones solo el nombre del archivo (p.e.
prueba.pdf)
y suponemos que la ruta es siempre la misma (p.e. c:\fichas\)
=hipervinculo("c:\fichas\"&a11,"abrir "&a11)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Haber amigos he encontrado esto:
Sub test1()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "e:\prueba.pdf"
End Sub
que me funciona pero desearia pulirlo un poco con vuestra ayuda.
Quiero que el nombre del archivo para abrir lo coga de la celda A11 y
que la carpeta sea algo asin "\fichas\ a11".

... existe alguna forma de poder abrir dese una hoja de excel un
archivo PDF.
La forma que me gustaria que se pudiera hacer es mediante un boton en
la hoja.

hola, Antonio !

prueba cambiando la instruccion que adaptaste con algo +/- como lo siguiente:

op1:

If Range("a8") = "" Then Exit Sub
' aqui continuas con el codigo que expusiste

op2:

Ruta = ThisWorkbook.Path & "\fichas\" & Range("a8")
If Dir(Ruta) <> "" Then ThisWorkbook.FollowHyperlink Ruta

saludos,
hector.

... como puedo modificar el codigo para que si en "A8" no ahi datos, osea esta vacio
al pulsar el boton no pase nada o bien de un mensaje que diga" NO AHI NADA PARA MOSTRAR".

... Al final buscando por la red y, aunque no se nada de codigo, pude mezclar varias respuestas del foro y me salio esto:
Ruta = Range("a8")
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\fichas\" & Ruta