bonjour a tous
voila mon souci
j'ai trouvé un code pour crée un pdf et envoyer par mail
j'ai réussi miraculeusement a l'adapter un peut
pour le moment la totalité du fichier est envoyé par mail
mais je voudrais uniquement envoyer la ou les pages actives
pour le moment je n'y arrive pas du tout
donc , un petit coup de main!!
merci encore
voila mon souci
j'ai trouvé un code pour crée un pdf et envoyer par mail
j'ai réussi miraculeusement a l'adapter un peut
pour le moment la totalité du fichier est envoyé par mail
mais je voudrais uniquement envoyer la ou les pages actives
pour le moment je n'y arrive pas du tout
donc , un petit coup de main!!
merci encore
Code:
Sub mail()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
' Créer une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
' Définit le nom du fichier à enregistrer
sNomFic = ThisWorkbook.Name & ".pdf" '''''''nom du fichier'''''''
' Enregistrer la feuille en PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = "wa@europe.com"
.Attachments.Add (sRep & "\" & sNomFic)
.Subject = "Rapport" & " " & ThisWorkbook.Name & ".pdf" 'Rapport + le nom du fichier '
.Display
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub