Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
lphant

Guardado automatico en pdf con 2 direcciones

Recommended Posts

Buenos días:

Tengo un pequeño problemilla con el tema del guardado automático en PDF, me podeis ayudar??.

Os explico un poco:

Tengo una macro que guarda automáticamente el archivo excel ( en formato pdf ) en la dirección/carpeta que aparece en la macro, cuando da error al intentar guardar en esa dirección/carpeta muestra un mensaje de error,

El problema que tengo ahora es que no todos los usuarios tienen acceso a esa carpeta y necesito poner 2 direcciones, es decir, que al intentar guardar primero pruebe en la dirección 1, si no da error que finalice el proceso, si da error que intente guardar en la dirección 2, si no da error que se finalice el proceso, y si da error en las 2 direcciones que salte un mensaje de aviso.

Muchas gracias.

libro5.xls

Share this post


Link to post
Share on other sites

Con esto he conseguido que funcione pero no me gusta del todo, se os ocurre alguna otra forma??.

On Error GoTo Line

RutaArchivo = "\\ENTREGA " & año2 & "\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

RutaArchivo & "Entrega ",Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

On Error GoTo 0

Exit Sub

Line:

On Error GoTo -1

On Error GoTo Errhandler

RutaArchivo = "\\S\ENTREGA " & año2 & "\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

RutaArchivo & "Entrega",Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

On Error GoTo 0

Exit Sub

Errhandler:

Mensaje1 = MsgBox("CREAR LA NUEVA CARPETA PARA EL AÑO CORRESPONDIENTE EN:" & vbCrLf & _

" ..\ENTREGA" & vbCrLf & vbCrLf & _

" SI LA CARPETA ESTUVIERA CREADA, GUARDAR MANUALMENTE Y AVISAR DEL ERROR.", vbInformation, "NO EXISTE LA CARPETA")

Application.ScreenUpdating = True

End Sub

Share this post


Link to post
Share on other sites

Comprueba si la carpeta donde vas a guardar existe o no.

If Dir(RutaCarpeta) = "" Then MsgBox "No existe"[/CODE]

Nota: No olvides añadir una barra invertida (\) al final de [i][b]RutaCarpeta

.[/b][/i]

Share this post


Link to post
Share on other sites
Comprueba si la carpeta donde vas a guardar existe o no.

If Dir(RutaCarpeta) = "" Then MsgBox "No existe"[/CODE]

Nota: No olvides añadir una barra invertida (\) al final de [i][b]RutaCarpeta

.[/b][/i]

Perdona Antonio que te vuelva a molestar.

No consigo que funcione.

si no encuentra la carpeta avisa de que no la ha encontrado pero sigue en la siguiente línea, si quito el aviso (msgbox) para poner un end if, no hace nada.

he intentado también poner un or para que si no encuentra una ruta pase a la siguiente ruta pero nada.

gracias y un saludo,

Share this post


Link to post
Share on other sites


If Dir(RutaCarpeta1) = "" Then MkDir RutaCarpeta1
If Dir(RutaCarpeta2) = "" Then MkDir RutaCarpeta2

'Código para guardar PDF 1
'Código para guardar PDF2

[/CODE]

Me da error de compilación en mkdir

Pd: mira se te voy a dar guerra

Share this post


Link to post
Share on other sites

Y con esto cierro mi participación en esta consulta:

Sub Copias()
Dim RutaArchivo1 As String
Dim RutaArchivo2 As String

'........
'........
'........

RutaArchivo1 = "\\ENTREGA " & año2 & "\"
RutaArchivo2 = "\\S\ENTREGA " & año2 & "\"
If Dir(RutaArchivo1) = "" Then MkDir RutaArchivo1
If Dir(RutaArchivo2) = "" Then MkDir RutaArchivo2
CrearPDF RutaArchivo1
CrearPDF RutaArchivo2
End Sub
'----------------------------------------------------------
Sub CrearPDF(RutaArchivo As String)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=RutaArchivo & "Entrega", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

[/CODE]

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png