Envoi d'une feuille Excel impossible
Bonjour,
Je désire envoyer uniquement la feuille 6 de mon classeur appelée "Reporting"
Voici mon code suivant mais il ne fonctionne pas.
La ligne .Attachments.Add... est surlignée en jaune.
Quelqu'un peut m'aider ?
Private Sub CommandButton1_Click()
Dim myoutlook As Outlook.Application
Dim myitem As Object
Set myoutlook = New Outlook.Application
Set myitem = myoutlook.CreateItem(olMailItem)
ThisWorkbook.Save
With myitem
.To = Me.Adresse_Mail.Value
.Subject = Me.TextBox2.Value
.Body = Me.TextBox3.Value
.Attachments.Add ThisWorkbook.Sheets("reporting").Copy
.Send
End With
End Sub
Bonjour,
Et sans .Copy ?
MFerrand a écrit :Bonjour,
Merci pour ta réponse rapide, ça me fait la même chose. Ca ne fonctionne pas
Et sans .Copy ?
MFerrand a écrit :Bonjour,
Et sans .Copy ?
Bonjour ça me fait le même chose.