jean123
XLDnaute Occasionnel
Bonjour à tous, étant novice en la matière, je sollicite votre aide.
J'ai ce bout de code qui me permet d'envoyer un mail avec une pièce jointe en PDF à partir d'une feuille Excel, mais cela ne fonctionne pas, car la feuille en question est masquée (feuil 5) et j'aimerai quelle le reste.
l'adresse d'enregistrement du PDF est différente de celle du classeur, mais je n'arrive pas à enregistrer le PDF où je veux
Pouvez, vous m'aidez
Private Sub EnvoisMail()
Dim OutlookApp As Object
Dim Mail As Object
Dim curfile
Set OutlookApp = CreateObject("Outlook.Application")
Set Mail = OutlookApp.CreateItem(0)
curfile = ThisWorkbook.Path & "\" & Range("C3").Value & "_" & Range("C8").Value & ".Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=curfile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With Mail
.SentOnBehalfOfName = "boite mail"
.To = ActiveSheet.Range("C10").Text
.Subject = "Duplicata De Reçu "
.HTMLBody = "<br><br>" & GetBoiler("adresse fichier htm")
.Attachments.Add curfile
.Send
End With
ActiveWorkbook.Save
End Sub
J'ai ce bout de code qui me permet d'envoyer un mail avec une pièce jointe en PDF à partir d'une feuille Excel, mais cela ne fonctionne pas, car la feuille en question est masquée (feuil 5) et j'aimerai quelle le reste.
l'adresse d'enregistrement du PDF est différente de celle du classeur, mais je n'arrive pas à enregistrer le PDF où je veux
Pouvez, vous m'aidez
Private Sub EnvoisMail()
Dim OutlookApp As Object
Dim Mail As Object
Dim curfile
Set OutlookApp = CreateObject("Outlook.Application")
Set Mail = OutlookApp.CreateItem(0)
curfile = ThisWorkbook.Path & "\" & Range("C3").Value & "_" & Range("C8").Value & ".Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=curfile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With Mail
.SentOnBehalfOfName = "boite mail"
.To = ActiveSheet.Range("C10").Text
.Subject = "Duplicata De Reçu "
.HTMLBody = "<br><br>" & GetBoiler("adresse fichier htm")
.Attachments.Add curfile
.Send
End With
ActiveWorkbook.Save
End Sub