nrdz83
XLDnaute Impliqué
Bonjour à tous,
via le code ci-dessous je créé un fichier pdf de ma feuille active et j'ouvre mon logiciel de messagerie, je n'arrive pas à y intégrer à ce mail le fichier pdf créé.
Les codes séparément (création du pdf et ouverture email) fonctionnenet trés bien
Comment modifier ce code pour y joindre la pièce jointe créée?
Par avance merci
amitiés
via le code ci-dessous je créé un fichier pdf de ma feuille active et j'ouvre mon logiciel de messagerie, je n'arrive pas à y intégrer à ce mail le fichier pdf créé.
Les codes séparément (création du pdf et ouverture email) fonctionnenet trés bien
Comment modifier ce code pour y joindre la pièce jointe créée?
Par avance merci
amitiés
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\Archives fiche materiel\" & _
.Range("C2").Value & " N° " & .Range("A2").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True
End With
On Error Resume Next
Err = 0
ActiveWorkbook.FollowHyperlink Address:="mailto:" & _
"?subject=Fiche materiel " & " " & (Range("C2") & " N° " & (Range("A2")) & ".pdf") & _
"&body=Bonjour, veuillez trouver en pièce jointe la fiche matériel pour " & " " & (Range("C2") & " N° " & (Range("A2")))
'attachement du fichier
attachments.Add CurFile
If Err <> 0 Then MsgBox "Une Erreur s'est produite..."
Dernière édition: