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.
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 classeur2.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
est-ce possible ?
merci d'avance.
