............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Crear una macro para crear una hoja a PDF y direccionar su destino.

Ver el tema anterior Ver el tema siguiente Ir abajo

Crear una macro para crear una hoja a PDF y direccionar su destino.

Mensaje por 6luishao6 el Lun Ene 23, 2017 6:36 pm

Hola mi pregunta es la siguiente

TENGO ESTA MACRO QUE ME TRABAJA BIEN:
-------------------------------------------------------------------------------------------------------------------------
Sub Pdf()

ruta = ThisWorkbook.Path & "\"
nombre = WorksheetFunction.Text(Now(), "dd-mmm-yyyy-O-hh-mm-ss")

MsgBox "EL ARCHIVO IMPRESO SE GUARDO EN: " & ruta, vbOKOnly,
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nombre, OpenAfterPublish:=1
End Sub
------------------------------------------------------------------------------------------------------------------------
Pero quisiera modificar solamente su destino; cuando lo va convertir a PDF, esta macro por defecto lo crea donde está el archivo de Excel, quisiera que lo direcciones al ESCRITORIO con un cuadro de dialogo en donde el cual diga en donde se va encontrar el archivo PDF.

6luishao6

Masculino Cantidad de envíos : 21
Edad : 30
Ciudad - Pais : venezuela
Version de Excel : 2007 - 2010
Fecha de inscripción : 18/04/2015

Volver arriba Ir abajo

Re: Crear una macro para crear una hoja a PDF y direccionar su destino.

Mensaje por P@li el Lun Ene 23, 2017 8:59 pm

Hola 6luishao6,
Proba esto:

Código:

ruta = environ ("USERPROFILE") & "\desktop\"

Saludos,
Pablo.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.