Macro que funciona solo en algunos equipos.

dyer1951 · el 7 de julio

Hola que nada que tal buenos días.

Soy nueva en el foro, antes que nada quisiera agradecer este espacio, donde uno puede aprender y retro alimentarse de los demás he aprendido mucho en este foro.

Les cuento mi problema, realice una macro la cual hace una serie de procedimientos, uso dos libros uno llamado remisión y otro llamado pedidos, en el libro pedidos tengo un botón el cual lo que hace es guardar lo que tiene el libro pedidos en un pdf, la carpeta donde guardo dicho archivo se encuentra en C:\Pedidos, pero al momento que presiono el botón para crear el pdf, me indica que la carpeta no está creada a pesar de haberla creado, lo más extraño de todo es que he probado la macro en varios equipos con Windows 7 y Windows XP; en equipos con XP funciona en todos perfectamente, pero en Windows 7 solo en algunos funciona y en otros no, realmente no se que pase, alguien podria orientarme un poco.

Anexo la código del botón en este foro encontre un ejemplo al respecto, el me atreví a utilizar :

Sub guardarpedido()

'Declaramos la variable que nos va a servir para nombrar el archivo

'que vamos a generar

Dim nomb As String

''Limpiando celda del monto aproximado del pedido

Range("A9:B9").Select

With Selection.Font

.ThemeColor = xlThemeColorDark1

.TintAndShade = 0

End With

DatoFechador = Format(Date, "dd-mm-yyyy")

'Declaramos la carpeta a donde se enviara el archivo

Const myDir As String = "C:\Pedidos\"

'Mostramos mensaje para saber si esta seguro de realizar

'él archivo

If MsgBox("¿Desea Guardar?", vbYesNo, "Pedido") <> vbYes Then Exit Sub

'aqui mi nombre esta conformado por el valor de dos celdas que se indican con Range

nomb = DatoFechador & "-" & Range("B4") & "-" & Range("B5") & "-" & Range("B6") & ".pdf"

If nomb = ".pdf" Then Exit Sub

If Dir(myDir & nomb) <> "" Then

Sino = MsgBox(" ¿El Pedido ya existe, desea modificar los datos? ", vbYesNo, "Informacion")

If Sino <> vbYes Then Exit Sub

End If

On Error GoTo Err_Handler

Sheets("Pedido").ExportAsFixedFormat Type:=xlTypePDF, Filename:=myDir & nomb, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, _

IgnorePrintAreas:=False, OpenAfterPublish:=True

Exit Sub

Err_Handler:

MsgBox " No existe la carpeta, " & "verifique que esta en " & myDir

End Sub

Julibaga · el 8 de julio

Seguramente es algo relacionado con los permisos de esa carpeta. Estoy casi seguro que si la carpeta la creas en Mis Documentos y cambias el path en la macro, debería funcionar. Puedes probar para ver si es algo de eso.

dyer1951 · el 8 de julio

Hola Julibaja.

El día de ayer intente el procedimiento que sugieres, pero consigo el mismo resultado.

Incluso en el aparato de propiedades---seguridad le puse a todos los usuarios control total de esa carpeta, tambien puse la carpeta compartida y obtengo el mismo problema, no encuentra la carpeta a pesar de yo crearla.

Julibaga · el 8 de julio

Por revisar..... mira que el nombre de la carpeta no tenga espacios al final o al principio del nombre.

dyer1951 · el 8 de julio

Hola Julibaga.

No la carpeta creada no tiene ningun espacio al inicio, y al final.

bigpetroman · el 9 de julio

amigo @[uSER=78804]dyer1951[/uSER], te recomiendo que ejecutes tu macro paso a paso (con F8) y veas realmente donde tienes el problema, NO creo que el problema sea la carpeta, ese mensaje lo das tu al final con esto:

MsgBox " No existe la carpeta, " & "verifique que esta en " & myDir[/CODE]

pero eso no quiere decir que sea el error realmente, puedes cambiar ese codigo con este otro para ver realmente cual es el problema

[CODE]MsgBox "Error " & Err.Number & " (" & Err.Description & ") "[/CODE]

suerte

dyer1951 · el 9 de julio

Hola Bigpetroman

Modifique la línea de código por la que me indicas, al momento de ejecutarla sale lo siguiente: Error 5(Argumento o llamada a procedimiento no válidas).

Realmente no se que esté pasando con esta macro, ya que como les comento mi problema se presenta con algunos equipos con Windows 7, hago exactamente lo mismo entro a C: para crear la carpeta Pedidos. Lo curioso de todo esto es que en algunos equipo si funciona y en otros no. Es demasiado extraño.

Adjunto el archivo mostrando el mensae de error.

bigpetroman · el 9 de julio

probaste lo del F8 ?, no le veo sentido al error que indicas, ese codigo simplemente muestra el codigo del error y el texto del error.

dyer1951 · el 9 de julio

Hola Bigpetroman, al igual que tu no le encuentro sentido al error, ya que prácticamente lo que hace el botón es guardar un archivo en pdf dentro de la carpeta Pedidos, al correr la macro con f8, termina el proceso dando el mismo error , usando el código que me enviaste sin crear el archivo pdf dentro de la carpeta Pedidos. y dejando el código de la forma original, Finaliza diciendo que no encuentra la carpeta Pedidos en la unidad C:/, a pesar de estar creada, y tampoco me genera el archivo pdf. Como te mencionó solo es ciertos equipos con windows 7. Ya que en algunas otras maquina si me hace el proceso bien y si me guarda y crea el archivo pdf, dentro de la carpeta Pedidos. Sera un misterios lo que me este pasando solo en algunos equipos?

bigpetroman · el 9 de julio

amigo, la idea de hacerlo con F8 es que veas exactamente en que línea salta el error, alguna línea debe producir un error para que salte a la parte del manejador de errores Err_Handler, esa es la línea que debes verificar.

de todas formas sin archivo es imposible ayudar mas, si lo deseas sube el archivo que te produce el error para poder revisar mejor, suerte

dyer1951 · el 9 de julio

Podrías proporcionarme algún correo electrónico para hacer llegar el archivo, ya que el foro me indica que es demasiado grande para poder subirlo.

bigpetroman · el 9 de julio

puedes comprimirlo y lo subes a dropbox o google drive o cualquier otro servidor de archivos

dyer1951 · el 9 de julio

Te paso el link Macro que no funciona en algunos equipos

bigpetroman · el 10 de julio

amigo, revise el archivo y ese codigo se ve bien, yo coloque el codigo que te indique y no da ningun error; te repito nuevamente, ejecuta el codigo paso a paso con F8 y verifica en cual línea te salta el error, el codigo se ve bien y deberia funcionar sin problema en cualquier excel 2007 en adelante, suerte

dyer1951 · el 10 de julio

Hola bigpetroman.

Agradezco el tiempo invertido en mi problema. Realmente no se porque no funcione de 5 maquinas que e probado en 4 funciona a la perfección. Solo en una no y es la misma macro es por eso que no logro entender el problema como es que en 4 funcione bien y solo en una no. Aaah y soy chica :-) asi que soy amiga ;-)