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
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