Buscar en subcarpetas

[enri40]

Hola nesesito ayuda co la siguiente macro:

Sub BuscaPdf()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
  Dim Miruta As String, Ruta As String, MiNombre As String...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[enri40]

Gracias por tu respuesta Héctor Miguel.

Hasta hora tengo esto, ahora funciona bien, lo que falta es depurar un poco.
Por ejemplo si no existe el archivo me lo indique.
Tambien si no pongo "On...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[enri40]

Gracias Héctor.
Te comento...
Encontre esta macro en una web:

Sub AbrirArchivo()
Archivo = Range("C2").Value
MiRuta = "D:\ingenieria\especificaciones\cliente\"
MiNombre = Dir(MiRuta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí