Macro Excel Résolu/Fermé

Question

Bonjour, je ne sais pas si je suis sur le bon forum. je suis nouveau.

Voila mon petit probleme j ai fait une macro pour pouvoir envoyer une feuille par mail en piece jointe a partir d un fichier excel avec plusieurs feuilles. 

Tout fonctionne bien mais la seul chose que je voudrais en plus c'est que la feuille excel en piece jointe soit du meme nom que la feuille ou que je puisse la renommer dans le code:

Voici mon code :

Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = "@ mail"
Sujet = "sujet du message"
AccuseReception = True
ThisWorkbook.Sheets("toto").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

Donc la pour exemple je voudrais que ma piece jointe s appelle "toto.xls"

Voila encore une petite chose je suis sur office 2007

Merci d'avance

Le Pingou · Answer

Bonjour,
Le plus simple est de copier la feuille vers un nouveau classeur temporaire :
ActiveSheet.Copy  ' créée une copie de la feuille active dans un nouveau classeur

Vous le nommez du même nom que la feuille :
Workbooks(ActiveWorkbook.Name).SaveAs toto 

Vous prenez ce classeur en pièce jointe et ensuite fermer et  le supprimer.
ActiveWorkbook.Close ' Fermer le classeur temporaire créé pour le courriel
Kill toto ' Supprimer le classeur temporaire

gbinforme · Answer

bonjour

Essaie comme ceci :
ActiveWorkbook.SaveAs Filename:="C:\Users\admin\Desktop\Dossier	oto.xls" , FileFormat:=xlExcel8

Ce format est le format .xls

Macro Excel

2 réponses

Discussions similaires