Bonjour a tous,
tous est dans le titre
voici la macro qui fonctionne MAIS j'ignore complétement comment ajouter un corps de texte....
********************************************
Private Sub CommandButton1_Click()
Dim Dest As String, Sujet As String
Sheets("Template").Select
ActiveSheet.Copy
Dest = "toto@orange.fr"
Sujet = "test"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
************************************
merci a tous pour votre aide
@+
tous est dans le titre
voici la macro qui fonctionne MAIS j'ignore complétement comment ajouter un corps de texte....
********************************************
Private Sub CommandButton1_Click()
Dim Dest As String, Sujet As String
Sheets("Template").Select
ActiveSheet.Copy
Dest = "toto@orange.fr"
Sujet = "test"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
************************************
merci a tous pour votre aide
@+