Asignar hipervinculos a planos y documentos

Hola Juan!
en esta ocasión yo veo dos respuestas tuyas una a las 2:38 y otra a las
3:34, respondo a las dos por si tu no vieras mas que una

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

Si, tenía la respuesta en la carpeta Borrador, y le di a enviar dos veces.
Pero ves, del interesado, Alejandro Carcamo, ni por asomo.

Saludos.-

"Emilio" escribió en el mensaje de noticias
news:ktobql$g6b$

Hola Juan!
en esta ocasión yo veo dos respuestas tuyas una a las 2:38 y otra a las
3:34, respondo a las dos por si tu no vieras mas que una

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

Hola!

volverá pidiendo, ...

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

El domingo, 4 de agosto de 2013 12:09:02 UTC-4, Juan Español escribió:

Hola Alejandro:

Creo que sería mejor no crear hipervínculos, sino un código que al situarte

en la celda que contiene el nombre del fichero y darle a un botón o con una

tecla de función te abriera el PDF.

La razón de esto se debe a que mi sistema tiene varias ventajas sobre el

sistema de hipervínculos.

Lo que pasa es que me da la impresión que mis respuestas no la leen todos

los usuarios del grupo.

Si tú lees esto, me respondes y te posteo el código correspondiente.



Saludos.-



"Alejandro Carcamo" escribió en el mensaje de noticias

news:

Estimados

Alguien podría ayudarme con el siguiente tema, tengo una columna con códigos

de planos y documentos y necesito crear un hipervínculo para todos ellos,

cosa que haga clic y me abra el pdf del plano o documento.

Los código son mas o menos asi:



12030-EE-PL-0001



y el link donde esta ese pdf es D:\alejandro\planos



Ayuda plis

Estimado
Disculpa por no contestar antes pero no pude. Me interesa el tema por eso te pido que me des tu código.
Gracias

Bueno leo tu respuesta de milagro, pero ahí va mi contestación...
En un módulo de la hoja pon el siguiente código:

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long

Sub macro1()
Dim prueba As String, res As Long
prueba = [CARPETA1] & ActiveCell.Value & ".pdf"
FileNoExists (prueba)
res = ShellExecute(hwnd, "open", prueba, "", "", 1)
End Sub

Function FileNoExists(sFullPath As String) As Boolean
'Creamos el objeto FileSystemObject
Dim oFile As Object
Set oFile = CreateObject("Scripting.filesystemObject")
If Not oFile.FileExists(sFullPath) Then
MsgBox "El fichero " & sFullPath & " NO EXISTE. Compruebe el nombre y
ubicación del fichero."
FileNoExists = True
End If
End Function
Function FileExists(sFullPath As String) As Boolean
'Creamos el objeto FileSystemObject
Dim oFile As Object
Set oFile = CreateObject("Scripting.filesystemObject")
If oFile.FileExists(sFullPath) Then
MsgBox "El fichero " & sFullPath & " existe."
FileExists = True
End If
End Function


Lo único que tienes que hacer para que te funcione es:
1º En una celda determinada pon el path (dirección completa de la carpeta)
donde buscará el fichero.
Así si decides cambiar la carpeta donde guardas tus ficheros no tendrás
que cambiar este código
ni tus pretendidos hipervínculos uno por uno.
p.e. D:\Alejandro\Planos\

2º A esa celda donde vas a poner el path, darla el nombre CARPETA1 porque
así
se la llama en el código de la macro1
3º Crear un botón en la misma hoja que pones los nombres de los ficheros,
y poner en su código la llamada a macro1
p.e.
Private Sub CommandButton1_Click()
macro1
End Sub

Con estos tres pasos, si te situas en una celda que tenga el nombre (sin
extensión) de un fichero PDF,
si ese fichero está en la carpeta que has determinado en la celda del paso
1, al darle al botón del punto 3
se abrirá el fichero PDF.
Si no existe el fichero, o no está en el path, te mostrará un mensaje de
aviso.

Saludos.-



"Alejandro Carcamo" escribió en el mensaje de noticias
news:
El domingo, 4 de agosto de 2013 12:09:02 UTC-4, Juan Español escribió:

Hola Alejandro:

Creo que sería mejor no crear hipervínculos, sino un código que al
situarte

en la celda que contiene el nombre del fichero y darle a un botón o con
una

tecla de función te abriera el PDF.

La razón de esto se debe a que mi sistema tiene varias ventajas sobre el

sistema de hipervínculos.

Lo que pasa es que me da la impresión que mis respuestas no la leen todos

los usuarios del grupo.

Si tú lees esto, me respondes y te posteo el código correspondiente.



Saludos.-



"Alejandro Carcamo" escribió en el mensaje de
noticias

news:

Estimados

Alguien podría ayudarme con el siguiente tema, tengo una columna con
códigos

de planos y documentos y necesito crear un hipervínculo para todos ellos,

cosa que haga clic y me abra el pdf del plano o documento.

Los código son mas o menos asi:



12030-EE-PL-0001



y el link donde esta ese pdf es D:\alejandro\planos



Ayuda plis

Estimado
Disculpa por no contestar antes pero no pude. Me interesa el tema por eso te
pido que me des tu código.
Gracias