Código para que se guarde un archivo en PDF en cualquier escritorio

[JohaEU]

Saludos no soy experta, más bien, aficionada, tengo una archivo de excell, que genera un reporte en PDF, pero lo van a utilizar varias personas, y necesito que se guarde en el escritorio de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Hola @JohaEU,
En ese código:

sub pdf()
Dim rutaarchivo As String
rutaarchivo = "C:\Users\Dell Latitud E6440\Documents\" & [D9]
ActiveSheet.ExportAsFixedFormat...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JohaEU]

Hola @JohaEU,
En ese código:

sub pdf()
Dim rutaarchivo As String
rutaarchivo = "C:\Users\Dell Latitud E6440\Documents\" &...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

necesito que se guarde en el escritorio de distintas PC

cambia esta parte:

rutaarchivo =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JohaEU]

cambia esta parte:

por esto:

rutaarchivo = CreateObject("wscript.shell").SpecialFolders("desktop") & "\" & [d9]

...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JohaEU]

Muchas gracias ambas sugerencias me sirvieron!!!!