Ruta donde guardar PDF

[Predi]

Buenos días

Como se puede poner la ruta donde guardar el fichero pdf

en la macro que tiene esta hoja factura

Gracias

Factura.xlsm

[Gerson Pineda]

Hola

La variable "Ruta" la contiene, solo es cosa de pasarla donde lo deseas, por ejemplo: range("A1") = Ruta

O si realmente deseas colocar otra ruta, pues copia entre comillas: Ruta = "minueva ruta"

 

Saludos 

[Predi]

Hace 8 horas, Gerson Pineda dijo:

Hola

La variable "Ruta" la contiene, solo es cosa de pasarla donde lo deseas, por ejemplo: range("A1") = Ruta

O si realmente deseas colocar otra ruta, pues copia entre comillas: Ruta = "minueva ruta"

 

Saludos 

Gracias Gerson por tu tiempo

No se si es de esta manera

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                    Ruta = "C:\Users\jaime\Desktop\Facturas Emitidas" & "\" & "Factura nº " & NumFactura & ".pdf", Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Haciendo esto me lo graba en el escritorio y el nombre con el cual lo graba pone FALSO.pdf

te he de decir que carezco de conocimientos en VBA

Gracias

[Predi]

Me parece que esta solucionado Gerson

Ruta = .SelectedItems(1)

aquí es donde se tiene que asignar la ruta donde quieres que se te guarden los documentos

si no estoy equivocado.

Gracias

[Gerson Pineda]

Hola

En 3/6/2020 at 23:43 , Predi dijo:

Ruta = "C:\Users\jaime\Desktop\Facturas Emitidas" & "\" & "Factura nº "

Esa ruta es una variable, por tanto debes declararla antes [no puedes insertarla dentro de la función así como lo hiciste], primero la declaras

En resumen en vez de esto 
Ruta = .SelectedItems(1)


Seria esto
Ruta = "C:\Users\jaime\Desktop\Facturas Emitidas" & "\" & "Factura nº "

Ese seria el único cambio para que funcione

 

Saludos 

[Predi]

En 6/6/2020 at 19:25 , Gerson Pineda dijo:

Hola

Esa ruta es una variable, por tanto debes declararla antes [no puedes insertarla dentro de la función así como lo hiciste], primero la declaras

En resumen en vez de esto 
Ruta = .SelectedItems(1)


Seria esto
Ruta = "C:\Users\jaime\Desktop\Facturas Emitidas" & "\" & "Factura nº "

Ese seria el único cambio para que funcione

 

Saludos 

Muchas Gracias Gerson