Transformation fichier pdf avant envoi mail

pourriez vous m'aider a corriger l'erreur que je ne trouve pas

mon fichier part bien mais n'est pas transformé en pdf avant envoi

très certainement une erreur de ma part car tout le reste est ok

Sub Mail_workbook_Outlook_1()

'Working in Excel 2000-2013

'This example send the last saved version of the Activeworkbook

'For Tips see:

Dim OutApp As Object

Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail

.To = "xx.com"

.CC = ""

.BCC = ""

.Subject = "fiche qualité"

.Body = "Bonjour Veuillez trouver ci joint une fiche qualité "

.Attachments.Add ActiveWorkbook.FullName

'You can add other files also like this

'.Attachments.Add ("C:\test.txt")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=adr & "\" & nom & ".pdf"

.Send 'or use .Display

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

MsgBox "message envoyé avec succés"

End Sub

d'avance un super merci ...............

Bonjour,

Je ne suis pas un fin connaisseur du code VBA concernant les mails, mais j'ai l'impression que tu exportes bien ta feuille active dans un dossier, mais tu ne l'ajoutes nul part à ton mail ?

Bonjour,

Tu attachais ton fichier avant de l'avoir créé.

Voir si ceci convient ...

Sub Mail_workbook_Outlook_1()
'Working in Excel 2000-2013
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim OutApp As Object
Dim OutMail As Object
Dim Adr, Nom As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Adr = ActiveWorkbook.Path  ' le chemin où est mon fichier
Nom = ActiveWorkbook.Name  ' à adapter pour le nom désiré
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Adr & "\" & Nom & ".pdf"

On Error Resume Next
With OutMail
.To = "xx.com"
.CC = ""
.BCC = ""
.Subject = "fiche qualité"
.Body = "Bonjour Veuillez trouver ci joint une fiche qualité "
.Attachments.Add Adr & "\" & Nom & ".pdf"    '''activeWorkbook.FullName
'''You can add other files also like this
'''.Attachments.Add ("C:\test.txt")
''''''ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=adr & "\" & nom & ".pdf"
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "message envoyé avec succés"
End Sub

ric

Rebonjour,

Pour le nom du PDF, il sera le même que ton fichier Excel.

Si ça ne convient pas, il restera ce p'tit bout là à adapter.

ric

super merci pedro 22 pour ta réponse

je vais retrailler dessus

charly013 a écrit :

super merci pedro 22 pour ta réponse

je vais retrailler dessus

C'est gentil, mais des réponses que tu as reçu, c'est probablement la mienne qui t'aide le moins !

Non Pedro c'a marche super bien vous êtes tous au top