email objet

[gothc]

bonjour a vous

je recherche une methode pour mettre un message par defaut dans
lobjet de mon email et voir un petit message dans le mail

pour le moment quand j'env le fichier il me dit Classeur2.xls merci pour votre aide

voir piéce jointe

 

[gothc]

piéce jointe

 

[gothc]

probléme piéce jointe

lol 15 ko je comprend pas

 

[gothc]

re essai piéce jointe

 

[gothc]

je fait essai avec un autre pc

 

[gothc]

je comprend pas ça marche pas

je vous m le code de Userform

Private Sub CommandButton1_Click()
Dim Origine As Workbook
Dim PremiereFeuille As Boolean
On Error GoTo er

PremiereFeuille = True
Set Origine = ActiveWorkbook
For i = 1 To ActiveWorkbook.Sheets.Count
If ListBox1.Selected(i - 1) = True Then
If PremiereFeuille = True Then
Origine.Sheets(ListBox1.List(i - 1)).Copy
Else
Origine.Sheets(ListBox1.List(i - 1)).Copy After:=Workbooks(Application.Workbooks.Count).Sheets(Workbooks(Application.Workbooks.Count).Sheets.Count)
End If
PremiereFeuille = False
End If
Next i


ActiveWorkbook.SendMail Recipients:=TextBox1.Value
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets('ACCUEIL').Activate

Exit Sub
er:
'MsgBox err.Description
End Sub


Private Sub UserForm_Activate()
For i = 1 To ActiveWorkbook.Sheets.Count
ListBox1.AddItem ActiveWorkbook.Sheets(i).Name
Next i
End Sub

[file name=USERFFICHIER.zip size=1704]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USERFFICHIER.zip[/file]

 

[gothc]

re essai piéce jointe

[file name=userf.zip size=11622]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/userf.zip[/file]

 

[Jeannot45]

Salut gothc,

Tu as la réponse dans l'aide - voir ci-dessous

Cette méthode envoie le classeur en utilisant le système de messagerie installé.

expression.SendMail(Recipients, Subject, ReturnReceipt)
expression Obligatoire. Expression qui renvoie un objet Workbook.

Recipients Argument de type Variant obligatoire. Spécifie le nom du destinataire sous la forme de texte ou, s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. Vous devez spécifier au moins un destinataire, et tous les autres sont ajoutés dans la liste « À ».

Subject Argument de type Variant facultatif. Spécifie le sujet du message. Si vous ne spécifiez pas cet argument, le nom du document est utilisé.

ReturnReceipt Argument de type Variant facultatif. Affectez-lui la valeur True pour exiger un accusé de réception et la valeur False dans le cas contraire. La valeur par défaut est False.



Part contre pour insérer un message par défaut : Pas de réponse pour l'instant. Je cherche

Jeannot

 

[gothc]

merci Jeannot45 pour ton aide B)