Re, si j'ai bien compris tu veut que ton fichier tableau soit directement join dans ton mail ?
Veut tu qu'il soit modifiable ?
J'ai peut-être de quoi t'aider
Private Sub Mail_Click()
On Error Resume Next
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 = "confidentiel" & "_" & Format(Date , "dd_mm_yyyy") & ".pdf"
'je met la date dans le nom du fichier ici mais c'est en considérant que tu veuille l'enregistrer quelque part et que la date soit voulu.
' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Fin d'enregistrement
'Ouverture d'application outlook
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.Cc = ""
.Attachments.Add (sRep & "\" & sNomFic) 'fichier pdf directement en pièce jointe
.Subject = ""
.Display
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub
En éspérant avoir aidé.