XL 2016 comment envoyer fichier excel en pièce jointe

[OIiv109]

Bonjour à tous,

J'ai une macro dans mon fichier excel qui envoi par mail via outlook la feuille excel en pdf renommée selon cellules.

Par contre je voudrais faire la même cchose mais l'envoyer en excel et non pdf, mais je ne trouve pas.

Merci à tous ceux qui peuvent m'aider

Ci-dessous macro :
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, LeNom As String

LeNom = Range("O13").Value

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 = LeNom & ".pdf"
' Enregistrer la feuille en PDF
ActiveSheet.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 = Range("O17").Value
.Cc = ""
.Attachments.Add (sRep & "\" & sNomFic)
.Subject = Range("A1") & " : " & Range("F9") & " - Cde : " & Range("F15") & " - Réf : " & Range("F13") & " - Client commissionné : " & Range("O15") & " - Montant commission : " & Range("F27").Value & " €" & " H.T"
.Display
End With

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub

 

[Dudu2]

Bonjour,
Je vois pas le problème.
.Attachments.Add (sRep & "\" & sNomFic)
sNomFic doit contenir le nom du classeur. Et dans ce cas ça ne sert à rien de l'exporter en PDF avant.

 

[OIiv109]

OK mais quand je supprime l'export en pdf il ne mets pas le fichier excel en pièce jointe et affiche un débogage

 

[Dudu2]

Est-ce qu'il existe ce fichier ?
' Définit le nom du fichier à enregistrer
sNomFic = LeNom & ".xlsx"

 

[OIiv109]

En fait cela créer le nom du fichier en fonction de la cellule ("O13")