Modifier le titre du classeur l'or de l'envoie

[pat12]

J'ai une macro pour envoyer par Email une feuille, elle fonctionne tres bien

********************************
Sub SendMail()
ThisWorkbook.Sheets(1).Copy
With ActiveWorkbook
.SendMail Recipients:=Array(test@test.fr, test@test.fr), Subject:="Relevet analytique" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

Application.WindowState = xlNormal

End Sub

**************************************

Mais l'or de l'envoi le titre du classeur est (classeur 3 ex..) et il change à chaque envoie, comment puis je faire pour qu'il reste fixe.
Merci

 

[Minick]

Re : Modifier le titre du classeur l'or de l'envoie

Salut,

Tu n'auras pas d'autre choix que d'enregistrer la classeur dans le dossier de ton choix avec le bon nom avant de l'envoyer.

Ensuite, soit tu supprimes le classeur, soit quand tu fais un saveas tu mets un
DisplayAlerts=False pour qu'il ecrase le precedent sans poser de question

 

[pat12]

Re : Modifier le titre du classeur l'or de l'envoie

Existe-t-il une autre macro pour envoyer par E-mail une feuille (sans pièce jointe) par exemple.
Merci