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.
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.
