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

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 

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

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

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 

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