Désolé mais le lien ne fonctionne pas avec excel 2011 car les exemples sont tous avec excel 2016.
Du coup j'ai avancé un peu mais impossible de copier l'adresse et et l'objet.
Sub envoiemail()
'envoie de mail
Dim Mafeuille As Worksheet
Dim Nbligne As Integer
Dim fichier As String
With Worksheets("listedecoupe")
fichier = "liste découpe n°" & .Range("J2")
Set Mafeuille = ThisWorkbook.Sheets("listedecoupe")
Application.ScreenUpdating = False
Nbligne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Mafeuille.Range("A1:W" & Nbligne).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Application.Dialogs(xlDialogSendMail).Show
"Je pense qu'il faut mettre l'expediteur et l'objet, mais comment??
End With
ActiveWorkbook.SaveAs Filename:= _
"Macintosh HD:Users:daurelle:Documents:commande mouton: " & fichier, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End With
Application.ScreenUpdating = True
End Sub
En sachant que l’expéditeur et l'objet son dans une cellule de cette feuille.
Merci