XL 2010 Email piece jointe

[jean123]

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

 

[Yaloo]

Re : Email piece jointe

Bonjour Jean, le forum,

Il faut donc la démasquer en début de macro et la re-masquer après la fin de la macro.

A+

Martial

 

[jean123]

Re : Email piece jointe

si je fait ça la feuille deviendra visible par l'utilisateur ?

 

[Yaloo]

Re : Email piece jointe

Re,

Dans ce cas là, il faut utiliser Application.ScreenUpdating = 0 en début de macro les différents événements ne seront pas visible à l'écran.

 

[jean123]

Re : Email piece jointe

nickel merci pour l'info
par-contre pour cibler la feuille masquée (feuille 5) je fais comment sur ce bout de code ? sachant que je souhaite enregistrer le pdf sur une autre adresse que celle du classeur

curfile = ThisWorkbook.Path & "\" & Range("C3").Value & "_" & Range("C8").Value & ".Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=curfile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

 

[Yaloo]

Re : Email piece jointe

Il faut remplacer Acrivesheet par le nom de ta feuille, sheets("Feuil5") par exemple.
Pour la démasquer et le masquer a nouveau c'est pareil.

 

[jean123]

Re : Email piece jointe

comme ceci
j'ai un message d'erreur

curfile = ThisWorkbook.Path & "\" & Range("C3").Value & "_" & Range("C8").Value & ".Pdf"
sheets("Feuil5").ExportAsFixedFormat Type:=xlTypePDF, Filename:=curfile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

 

[Yaloo]

Re : Email piece jointe

Qd chose comme ça :

Private Sub EnvoisMail()

Dim OutlookApp As Object
Dim Mail As Object
Dim curfile

'Cache les événements à l'écran
Application.ScreenUpdating = False

Set OutlookApp = CreateObject("Outlook.Application")
Set Mail = OutlookApp.CreateItem(0)
'Affiche la feuille
Sheets("Feuil5").Visible = True
curfile = ThisWorkbook.Path & "\" & Range("C3").Value & "_" & Range("C8").Value & ".Pdf"

Sheets("Feuil5").ExportAsFixedFormat Type:=xlTypePDF, Filename:=curfile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Masque la feuille
Sheets("Feuil5").Visible = 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

A+

 

[jean123]

Re : Email piece jointe

j'ai un message d'erreur sur .send

 

[Yaloo]

Re : Email piece jointe

J'ai l'impression que ça vient de ton .SentOnBehalfOfName = "boite mail"

Essaie de mettre ton adresse mail, ça devrait aller mieux.

A+

 

[jean123]

Re : Email piece jointe

j'ai bien mis ma boite mail pourtant

j'ai ajouté .Body = olFormatHTML avant .HTMLBody = "<br><br>" & GetBoiler("adresse fichier htm") mais ça me demande de déclarer la variable

 

[jean123]

Re : Email piece jointe

du coup j'ai déclaré la variable Const olFormatHTML = 2 j'ai bien mis la boite mail mais j'ai toujours le même problème sur .send

 

[Yaloo]

Re : Email piece jointe

Ca doit bloquer sur GetBoiler si tu n'as pas de fonction correspondante.

Fais un essai en mettant un texte bidon du type .HTMLBody = "<br><br>" & "Bonjour"

Mais il serait bien d'avoir un fichier sans données confidentielles car si on continu comme ça on va pouvoir écrire un roman

 

[jean123]

Re : Email piece jointe

voila le code complet peut être ce sera plus clair pour toi

Private Sub EnvoisMail()

Dim OutlookApp As Object
Dim Mail As Object
Dim curfile
Const olFormatHTML = 2
'Cache les événements à l'écran
Application.ScreenUpdating = False

Set OutlookApp = CreateObject("Outlook.Application")
Set Mail = OutlookApp.CreateItem(0)
'Affiche la feuille
Sheets("feuil5").Visible = True
curfile = ThisWorkbook.Path & "\" & Range("C3").Value & "_" & Range("C8").Value & ".Pdf"

Sheets("feuil5").ExportAsFixedFormat Type:=xlTypePDF, Filename:=curfile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Masque la feuille
Sheets("feuil5").Visible = False

With Mail
.SentOnBehalfOfName = "boitemail@tructruc.fr"
.To = ActiveSheet.Range("C10").Text
.Subject = "Duplicata De Reçu "
.Body = olFormatHTML
.HTMLBody = "<br><br>" & GetBoiler("adresse htm")
.Attachments.Add curfile
.Send
End With
ActiveWorkbook.Save
End Sub


Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

 

[jean123]

Re : Email piece jointe

je te prépare un fichier