MACRO QUE CAMBIO DE REPENTE

[joselica]

Hola,

Lo siento por las molestias pero me paso algo muy extraño.

Resulta que tengo una plantilla guardada en un PENDRIVE y voy trabajando sobre ella en casa y en el trabajo cuando puedo.

Ayer lo tenia bien y trabaje en casa sobre pequeños detalles y hoy al abrir el documento, la macro "ENVIAR mail" me indica este error:

1. Se ha producido el error’-2147024772(8007007b)’ en tiempo de ejecución:
2. No se guardo el documento

La macro que me habéis ayudado en conseguirla es la siguiente:

Sub PdfMail()
Dim Archivo As String, Destinatario As String
Dim Asunto As String, Cuerpo As String
Dim OutlApp As Object, H1 As Worksheet
'--
Application.ScreenUpdating = False
With Sheets("FICHA")
   Destinatario = .Range("C11")
   Asunto = .Range("B72")
   Cuerpo = .Range("B85")
   Archivo = Replace(.Range("B70"), "/", "-")
   Archivo = Replace(Archivo, ":", "")
   Archivo = ThisWorkbook.Path & "\" & Archivo & ".pdf"
   .ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=Archivo, _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End With
'--
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
   Set OutlApp = CreateObject("Outlook.Application")
End If
'--
With OutlApp.CreateItem(0)
   .To = Destinatario
   .Subject = Asunto
   .Body = Cuerpo
   .Attachments.Add Archivo
   .Display
End With
'--
Application.ScreenUpdating = True
End Sub
Es muy extraño ya que unas horas antes hize las pruebas pertinentes y me ha funcionado de maravilla.

Saludos,

[Luis paz]

Puedes subir el archivo. Usé el que compartiste en tu última consulta y remplacé con el código que mencionar, pero no me aparece ni un error.

Comparte tu archivo de nuevo por favor, para poder apoyarte

[joselica]

Buenos días Luis Paz,

El archivo que tengo pesa más de lo permitido para subirlo. Voy trabajando en copias de prueba que pesan menos.

Algo raro paso, es la primera vez que me pasa y nunca me he encontrado con estas molestias. Despues de varias pruebas me ha vuelto funcionar.

De lo que yo he entendido, era porque en las celdas "ASUNTO" y "NOMBRE" he utilizado la formula concatenar con TEXTO fecha en cada una de las formulas. He quitado el TEXTO fecha del "ASUNTO" y "voila" me ha vuelto a funcionar.

Saludos y perdonar las molestias.

 

[Haplox]

Hace 3 horas, joselica dijo:

De lo que yo he entendido, era porque en las celdas "ASUNTO" y "NOMBRE" he utilizado la formula concatenar con TEXTO fecha en cada una de las formulas

Prueba cambiando a:

ASUNTO=Cells(la que sea).Text

[joselica]

Gracias Haplox,

Ire probanto tu respuesta.

Hasta luego.

[Antoni]

¡ QUE TODO SE REDUCE A QUE EL NOMBRE DEL ARCHIVO CONTIENE CARACTERES INVÁLIDOS (,:+/$@#,......) !

¿TU TE LEES LAS RESPUESTAS QUE TE DAMOS?

[Sergio]

@joselica, en el siguiente tema te han dado una respuesta muy acertada:

¿Hay algún motivo por el que has abierto este tema con la misma consulta?

[joselica]

Hola a todos,

Respondere a cada uno según rcomentarios/preguntas.

La "MACRO QUE CAMBIA DE REPENTE" esta solucionado. De hecho con las respuestas he logro de entender varias cosas a la vez y arreglar los errores que cometia.

Antonio;

Si, me leo las respuestas. Pero aveces me  lio a mi mismo y hago errores de novato.

Sergio;

Simplemente queria felicitar y agradecer la ayuda de todas las personas que me han atendido hasta ahora ya que estamos en fechas Navideñas.

Una vez mas, os agradezco vuestra ayuda y os felicito a todos:

Feliz Navidad y Feliza Año Nuevo.

Jose

[Antoni]

Cita

Antonio;

Si, me leo las respuestas. Pero aveces me  lio a mi mismo y hago errores de novato.

Antoni, me lamo Antoni, no Antonio.