** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - enviar y guardar albarán automáticamente
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoenviar y guardar albarán automáticamente

 Responder Responder
Autor
Mensaje
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 1908
Enlace directo a este mensaje Tema: enviar y guardar albarán automáticamente
    Enviado: 11/Enero/2019 a las 17:04
Hola,

Se me plantea un problema que no sé como abordar, he confeccionado un albarán en Word (puedo hacerlo en Exccel) si es necesario, el caso es que una vez lleno mediante botón se puede guardar en pdf con el nombre de la fecha de albarán y al mismo tiempo enviar por correo (preferiblemente CDO) con el mismo nombre (la fecha del albarán).



Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 1908
Enlace directo a este mensaje Enviado: 11/Enero/2019 a las 19:14
Ya lo tengo en excel, por afinidad en la sección.

El gardado podría ser ("Albaran"_(Valor  F9)_(Valor F10))

F9= 1, 2, 3...
F10= 11/01/2019



Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 1908
Enlace directo a este mensaje Enviado: 12/Enero/2019 a las 18:20
Bueno solucionado.

Sub Rectánguloredondeado_Haga_clic_en()
On Error GoTo aviso
Dim RutaArchivo As String
Dim NombreArchivo As String
'creamos el mombre del archivo
NombreArchivo = "Albaran" & Range("F9") & Format(Range("F10"), "ddmmyyyy")
'indicamos la ruta donde queremos guardar el archivo
RutaArchivo = ActiveWorkbook.Path & "\PDFS\" & NombreArchivo & ".pdf"
'y con esto guardamos
ActiveSheet.ExportAsFixedFormat xlTypePDF, RutaArchivo
Exit Sub
aviso:
MsgBox "Error: " & Err.Description & " " & Err.Number
End Sub

Solo me faltaba el enviar por correo pero he recordado la posibilidad que nos ofrece Google gratuitamente (DRIVE) así que lo suelto en el drive de mi mujer y con el móvil ve los albaranes y cuando se los pide el veterinario se los enseña.

Podemos cerrar.


Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5419
Enlace directo a este mensaje Enviado: 13/Enero/2019 a las 21:37
¡Auto resuelto!

Gracias por compartir tu código.

Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable