parte = ActiveCell.Value
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getFolder(Ruta)
For Each archivo In carpeta.Files
If archivo.Name Like "*" & parte & "*" And Right(archivo, 3) = "pdf" Then
Shell "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe " & archivo, vbNormalFocus
Exit Sub
Else
End If
Next
MsgBox "No existe pdf"
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos días,
A ver si alguien me puede ayudar con esta macro :
Lo que necesito es poner la ruta que hay + todas las subcarpetas que hay después de \2019 Pedidos\..... y no se como hacerlo,
Gracias de antemano
Sub Proceso_hipervínculo_al_pedido()
Ruta = "\\192.169.11.18\RecursosCompartidos\ADMINISTRACION-VENTAS\Interdepartamental\2019 Pedidos\"
parte = ActiveCell.Value
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getFolder(Ruta)
For Each archivo In carpeta.Files
If archivo.Name Like "*" & parte & "*" And Right(archivo, 3) = "pdf" Then
Shell "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe " & archivo, vbNormalFocus
Exit Sub
Else
End If
Next
MsgBox "No existe pdf"
End Sub