Email et nom de fichier

Bonjour,

D'abord, merci à tous ceux qui m'ont aidé dans des questions passées-

Mon problème aujourd'hui est le suivant; avec le code:

ActiveWorkbook.Sheets("Guarantees").Copy

Application.Dialogs(xlDialogSendMail).Show arg1:="seb@w.fr", arg2:="Guarantees Report", arg3:=False

ActiveWorkbook.Close

Application.DisplayAlerts = True

> Le nom du fichier attaché du mail est du type book1,2...
J'aimerais changer le nom de ce fichier par VBA,,, quelqu'un a t'il une idée?

Merci d'avance.

Sebw