Macro pour envoyer une feuille d'un fichier excel par mail (gmail)

Mouh

XLDnaute Nouveau
Bonjour à tous;

Je souhaite SVP, créer une macro pour envoyer une feuille d'un fichier excel par mail en pièce jointe.
J'ai utilisé le code ci dessous, mais ça permet d'envoyer tout le fichier

Sub testmail()

Dim mMessage As Object
Dim mConfig As Object
Dim mChps
Dim FilePath$
Dim Formulaire$
Dim nWb As Workbook
Dim WshShell, utilisateur

Set Sh = ThisWorkbook.Sheets("Synthèse") 'choisir la bonne feuille
Set mConfig = CreateObject("CDO.Configuration")
mConfig.Load -1
Set mChps = mConfig.Fields
With mChps
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'En principe, 25 fonctionne avec tout les serveurs.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Application.ScreenUpdating = False

FilePath = "C:\monfichier.xls" 'Choisir un path (peu importe lequel puisqu'on écrase le fichier à la fin)..
Set mMessage = CreateObject("CDO.Message")
With mMessage
Set .Configuration = mConfig
.To = "monadresse@gmail.com"
.FROM = "monadresse@gmail.com"
.Subject = "Le sujet du mail"
.TextBody = "Ce mail vous est envoyer pour tester la macros de lermite"
'Pour ajouter une pièce jointe, un fichier, classeur, image etc.
.AddAttachment "C:\monfichier.xls"
.Send 'ou .Display pour afficher le mail.
End With
Set mMessage = Nothing

'Libère les ressources
Set mConfig = Nothing
Set mChps = Nothing
End Sub

En faite, je veux envoyer que la feuille synthèse qui regroupe les informations nécessaires. dans le code j'ai mis le chemin du fichier, comment faire pour envoyer une feuille spécifique???

Merci d'avance.
 

herve62

XLDnaute Barbatruc
Supporter XLD

Discussions similaires