UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Macro abre PDF - algunos si otros no el 07/10/16, 01:03 pm

maxi_arrua


Hola a todos!!

Tengo un archivo con una macro que abre archivos PDF a partir del valor de una celda, tengo archivos con mismo nombre pero con terminación (2),(3);etc..
Al ejecutar la marco en vez de abrirme en PDF los archivos sarasa, sarasa(2), sarasa(3) y sarasa(4), sólo me abre dos de dichos archivos, no entiendo porqué. Alguna idea? Gracias!!

Sub F5()
ChDir "C:\IPS\"
nombre = Range("F5").Value
Set fso = CreateObject("scripting.filesystemobject")
If fso.fileexists(CurDir() & "\" & nombre & " (4).pdf") Then
Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & nombre & " (4).pdf"
Else
End If
If fso.fileexists(CurDir() & "\" & nombre & " (3).pdf") Then
Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & nombre & " (3).pdf"
Else
End If
If fso.fileexists(CurDir() & "\" & nombre & " (2).pdf") Then
Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & nombre & " (2).pdf"
Else
End If
If fso.fileexists(CurDir() & "\" & nombre & ".pdf") Then
Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & nombre & ".pdf"
Else
MsgBox "NO EXISTE"
End If
End Sub
Archivos
asd.xlsm
No tienes los permisos para descargar los archivos.
(27 KB)

tyno


Hola Maxi.
Bien venido al foro.
No estoy seguro como funciona tu macro, no entiendo  bien ¿abre uno o varios pdf a la vez? si abre un archivo pdf a la vez tendrías que ver cuales casos abre, supongamos que abre el archivo que termina en 2 pero no abre el archivo que termina en 3, podés probar asignando el 3 a la instrucción que abre el 2 y ver si ahora abre el 3. Es decir, si todas las instrucciones son iguales y solo cambia el nombre del archivo, y en algunos casos funciona y en otros no entonces parece que el problema está en que no coincide el nombre del archivo que se esta queriendo abrir, a veces puede ser un espacio que no se ve o alguna puntuación. 
Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.