Bonjour,

j'aimerais ajouter un petit détail à ma macro.
Je désire envoyer ma feuille active par mail par le biais d'un bouton, jusque là OK. J'ai bien mon outlook qui s'ouvre, mon titre de sujet, et ma pièce jointe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub envoiMailEtFeuilleActive()
'
'
'
ActiveSheet.Copy ' crée une copie de la feuille active
Recipients = Array("")
ActiveWorkbook.SendMail Recipients, Subject:="Fichier Demande" 'envoi Mail
MsgBox "Votre fichier a bien été envoyé dans Outlook."
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
Shell "C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"
End Sub

Par contre, mon fichier joint dans outlook se nomme classeur1.xls

Est-il possible de lui affecter un autre nom par défaut. Car mon classeur se nomme Demande et mon onglet se nomme Demande également. Donc j'aimerais avoir ce mot comme pièce jointe : demande.xls au lieu de classeur.xls

est-ce possible ?

merci d'avance.