Posez votre question Signaler

Macro excel envoi mail avec fichier joint [Résolu]

elsielaure 290Messages postés 26 avril 2010Date d'inscription 8 mars 2011Dernière intervention - Dernière réponse le 19 mai 2010 à 09:48

Bonjour,
J'aimerai envoyer automatiquement une feuille d'un fichier Excel via Outlook.
J'utilise la macro suivante que j'ai récupérée d'une autre discussion.
Sub SendMail()
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("toto@ss.ch", "xxx@sss.ch"), Subject:="Test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
J'ai une liste de destinataire qui varie selon la feuille, j'ai donc essayé de modifier cette macro ainsi sachant que l'email du destinataire est inscrit sur la feuille 1 cellule M1 :
Function SendMail()
Dim y As String
Dim x As Integer
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
' Copy the sheet(1)
ThisWorkbook.Sheets(x).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:="y", Subject:="test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value
End Function
Mais ça ne marche pas...
Pourriez-vous m'indiquer ce que je dois modifier s'il vous plaît.
Merci d'avance.
Elsie

Macro excel envoi mail avec fichier joint »

Suggestions

Macro excel envoi mail avec fichier joint
Création et envoi pdf par macro VBA (Résolu) » Forum
Macro excel envoi email avec piéce jointe (Résolu) » Forum
Impossible d'envoyer mail avec fichier joint (Résolu) » Forum
Macro Excel Envoyer mail (Résolu) » Forum
Macro excel envoi email avec piéce jointe » Forum

Plus

Réponse

pijaku 4444Messages postés 15 mai 2008Date d'inscription 24 avril 2012Dernière intervention 17 mai 2010 à 15:53

re-
y est une variable. Donc dans :

.SendMail Recipients:="y", Subject:="test" & Format(Date, "dd/mmm/yy")

il ne faut pas le mettre entre guillemets. Comme ceci :

.SendMail Recipients:=y, Subject:="test" & Format(Date, "dd/mmm/yy")

Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

Ajouter un commentaire - Site web

Réponse

elsielaure 290Messages postés 26 avril 2010Date d'inscription 8 mars 2011Dernière intervention 17 mai 2010 à 16:01

Merci !!

Dites moi il y a moyen pour que la fenêtre "un programme essaye d'envoyer un message électronique en votre nom ...." ne s'affiche plus ?

Ajouter un commentaire

pijaku- 17 mai 2010 à 16:04

Là je ne sais pas. Il s'agit d'une alerte Windows...

pijaku- 18 mai 2010 à 07:59

pour cette alerte, regarde ici la réponse de MichelXLD du 05/08/2005, 16h48
Bon courage

Réponse

elsielaure 290Messages postés 26 avril 2010Date d'inscription 8 mars 2011Dernière intervention 17 mai 2010 à 17:02

Re,

Pour envoyer ma feuille j'utilise cette macro, que faut `il modifier afin de pouvoir ajouter un texte avant d'envoyer le mail.

Function SendMail()
Dim y As String
Dim x As Integer
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
' Copy the sheet(1)
ThisWorkbook.Sheets(x).Copy
' Send Email
With ActiveWorkbook
.SendMail Recipients:=y, Subject:="test" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Function

Merci d'avance

Elsie

Ajouter un commentaire

Afficher les 17 commentaires

pijaku- 17 mai 2010 à 17:12

Je n'utilise pas Outlook, donc personnellement je ne me suis jamais penché sur ce problème...
Regarde cette discussion

elsielaure- 17 mai 2010 à 23:06

Merci !
Je regarde tout ça

pijaku- 18 mai 2010 à 07:56

Salut,
M'en voulant de t'avoir plantée comme une vieille chaussette hier... J'ai fait des recherches ce matin et trouvé cette discussion ma foi fort instructive.
Plein de bonnes solutions, des leçons à tirer également. Par exemple : tu as regardé du côté publipostage par mail de Word ? Est une très bonne remarque.
Sinon le plus facile à mettre en oeuvre reste :

Private Sub CommandButton1_Click()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem

    Set OlApp = CreateObject("Outlook.application")
    Set OlItem = OlApp.CreateItem(olMailItem)

    With OlItem
        .To = "xxxxxxx@xxxxx.xx"
        .CC = "xxxxx.xxxx@xxxxxxx.xxx"
        .Subject = "Test"
        .BodyFormat = olFormatHTML
        .HTMLBody = "<HTML><body>Ce <b>mot</b> est en gras.<p>" _
        & "Ce " & "<u>mot</u> est souligné.<p>" & "Ce " _
        & "<FONT COLOR=RED>mot</FONT> est en rouge.<p>" _
        & "Ce " & "<i>mot</i> est en italique.<p>" & _
        "<b><i><u><font color=green>Ce format est vert, gras, italique et souligné !</font></u></i></b></body><HTML>"
        .Display 'Ou .Send
    End With
End Sub

en activant la référence Microsoft Outlook 11.0 Object Library, puis un CommandButton sur la feuille voulue
Je répète bien que tout ceci n'est pas de moi, mais si cela peux t'aider...

elsielaure- 18 mai 2010 à 09:52

Salut

Merci pour ton aide

Elle est bien cette macro elle permet d'ouvrir Outlook pour y envoyer un message directement à partir d'Excel....

Mais du coup je n'ai plus mes feuilles Excel envoyées automatiquement selon correspondant...

En fait le texte que je souhaiterais ajouter serait le même pour tous ...un petit message afin qu'ils ne reçoivent pas uniquement le fichier ... genre ; c'est tout, ok ?!

Elsie

elsielaure- 18 mai 2010 à 09:53

(Comment ça se fait que cette discussion soit en résolue??)

pijaku- 18 mai 2010 à 09:56

bah elle n'est pas en "résolu"...

pijaku- 18 mai 2010 à 09:59

En fait le texte que je souhaiterais ajouter serait le même pour tous ...un petit message afin qu'ils ne reçoivent pas uniquement le fichier ... genre ; c'est tout, ok ?!
Ben ça on l'a vu hier dans le lien donné plus haut... Le code : (en gras avec la faute d'orthographe...)

Sub SendEMailwithAttachments()  

Dim ol As Object, myItem As Object 
Set ol = CreateObject("outlook.application") 
Set myItem = ol.CreateItem(olMailItem) 
myItem.To = "adresse Email" 
myItem.Subject = "envoi d'un fichier attaché" 
myItem.Body = "ton corp de message" 
'fichier en cours d'utilisation envoyé en attaché: 
myItem.Attachments.Add ActiveWorkbook.FullName 
myItem.Send 
Set ol = Nothing 

End Sub

elsielaure- 18 mai 2010 à 10:14

Re Pijaku,

C'est gentil de prendre le temps de me répondre.

Encore une chose s'il te plaît. Je ne voudrai pas envoyer le fichier en entier mais juste une feuille par utilisateur. J'ai essayé ça, mais ça ne marche pas. ça me fait « Sub ou Fonction non définie »

Private Sub Bouton6_QuandClic()
'Sub SendEMailwithAttachments()
Dim y As String
Dim x As Integer
Dim ol As Object, myItem As Object
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = y
myItem.Subject = "envoi d'un fichier attaché"
myItem.Body = "ton corp de message"
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add WorSheet(x).FullName
myItem.Send
Set ol = Nothing
End Sub

Elsie

pijaku- 18 mai 2010 à 10:19

ça me fait « Sub ou Fonction non définie » Sur qu'elle ligne???
Celle ci :

myItem.Attachments.Add WorSheet(x).FullName

Si oui ajoute un k à Worksheet... Sinon ça fait Wok Shit et ça ne doit pas être bon...

elsielaure- 18 mai 2010 à 10:23

oui en effet, désolée pour la faute de frappe.

mais la j'ai toute la ligne en jaune :

myItem.Attachments.Add Worksheets(x).FullName

erreur d'exécution 438, propriété ou méthode non générée par l'objet

pijaku- 18 mai 2010 à 10:58

Alors, selon moi, tu ne peux pas envoyer un objet WorkSheets. Il faut envoyer un classeur et non une feuille. Je te conseille donc de :
1- copier la feuille indiquée en K1 vers un nouveau classeur
2- enregistrer ce classeur dans le même répertoire (plus facile à retrouver) que ton classeur original avec comme nom le nom de la feuille correspondante
3- envoyer ce nouveau classeur
4- le fermer.
Essaye ce code :

Private Sub Bouton6_QuandClic() 
'Sub SendEMailwithAttachments() 
Dim y, chemin As String 
Dim x As Integer 
Dim ol As Object, myItem As Object 
chemin = ActiveWorkbook.Path
y = Sheets(1).Range("M1").Value 
x = Sheets(1).Range("K1").Value 
'copie de la feuille x
ThisWorkbook.Sheets(x).Copy
'enregistrement du nouveau classeur sous (par exemple) C:\Temp\2.xls
ActiveWorkbook.SaveAs chemin & "\" & x
Set ol = CreateObject("outlook.application") 
Set myItem = ol.CreateItem(olMailItem) 
myItem.To = y 
myItem.Subject = "envoi d'un fichier attaché" 
myItem.Body = "ton corp de message" 
'fichier en cours d'utilisation envoyé en attaché: 
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send 
Set ol = Nothing 
'fermeture du nouveau classeur
ActiveWorkbook.Close
End Sub

elsielaure- 18 mai 2010 à 11:22

Re,

Oui c'est parfait !

une petite dernière chose s'il te plaît.

Du coup ça me l'enregistre sous le nom « 4 » ; c'est possible de l'enregistrer sous un autre nom.

Dans mon fichier j'avais comme nom de l'onglet, c'est possible de faire par exemple nom = Contrôle et « 1010 »

Je ne voudrai pas changer le nom des feuilles car ensuite je risque de mélanger les pinceaux pour les macros précédentes.

Elsie

pijaku- 18 mai 2010 à 11:27

Mais oui bien sur (les modifs en gras) :

Private Sub Bouton6_QuandClic() 
Dim y, chemin, nom As String 
Dim x As Integer 
Dim ol As Object, myItem As Object 
chemin = ActiveWorkbook.Path
y = Sheets(1).Range("M1").Value 
x = Sheets(1).Range("K1").Value 
nom = "contrôle " & Sheets(x).Name
ThisWorkbook.Sheets(x).Copy
ActiveWorkbook.SaveAs chemin & "\" & nom
Set ol = CreateObject("outlook.application") 
Set myItem = ol.CreateItem(olMailItem) 
myItem.To = y 
myItem.Subject = "envoi d'un fichier attaché" 
myItem.Body = "ton corp de message" 
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send 
Set ol = Nothing 
ActiveWorkbook.Close
End Sub

elsielaure- 18 mai 2010 à 11:47

Sans vouloir abuser...

Je voudrai que mon message soit de cette forme :

Bonjour,

Vous trouverez ci-joint le tableau de Contrôle pour votre service.
Merci de bien vouloir me faire un retour avec vos corrections.

Cordialement,

Elsie

J'ai mis ceci :

"Bonjour, " & "" & "Vous trouverez ci-joint le tableau de Contrôle pour votre service. " & "" _
& "Merci de bien vouloir me faire un retour avec vos corrections. " & "" & "Cordialement, " & "" & "Elsie "

Mais ça me met tout à la suite. Comme ça : Bonjour,Vous trouverez ci-joint le tableau de Contrôle pour votre service.Merci de bien vouloir me faire un retour avec vos corrections.Cordialement, Elsie

Il ya moyen de garder la 1er forme.

Merci d'avance !!!!

pijaku- 18 mai 2010 à 11:54

Sans conviction essaye ceci :

 & Chr(10) &

Private Sub Bouton6_QuandClic() 
Dim y, chemin, nom As String 
Dim x As Integer 
Dim ol As Object, myItem As Object 
chemin = ActiveWorkbook.Path
y = Sheets(1).Range("M1").Value 
x = Sheets(1).Range("K1").Value 
nom = "contrôle " & Sheets(x).Name
ThisWorkbook.Sheets(x).Copy
ActiveWorkbook.SaveAs chemin & "\" & nom
Set ol = CreateObject("outlook.application") 
Set myItem = ol.CreateItem(olMailItem) 
myItem.To = y 
myItem.Subject = "envoi d'un fichier attaché" 
myItem.Body = "Bonjour, " & Chr(10) & "Vous trouverez ci-joint le tableau de Contrôle pour votre service. " & Chr(10) & "Merci de bien vouloir me faire un retour avec vos corrections. " & Chr(10) & "Cordialement, " & Chr(10) & "Elsie " 
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send 
Set ol = Nothing 
ActiveWorkbook.Close
End Sub

elsielaure- 18 mai 2010 à 12:05

Ça me met ceci en rouge : & Chr(10) &

Erreur de compilation. Attendu numéro de ligne ou étiquette ou instruction ou fin d'instruction

pijaku- 18 mai 2010 à 14:28

Oui et bien là je suis autant bloqué que toi...
Je peux te suggérer des pistes, mais sans aucune certitude...
1- remplacer & Chr(10) & par "%0A" (ou %OA ou & "%OA" & ou & %OA &) Voir ici
2- remplacer & Chr(10) & par & vbCrLf &
ou encore utiliser le code html donné plus haut

Private Sub Bouton6_QuandClic() 
Dim y, chemin, nom As String 
Dim x As Integer 
Dim ol As Object, myItem As Object 
chemin = ActiveWorkbook.Path
y = Sheets(1).Range("M1").Value 
x = Sheets(1).Range("K1").Value 
nom = "contrôle " & Sheets(x).Name
ThisWorkbook.Sheets(x).Copy
ActiveWorkbook.SaveAs chemin & "\" & nom
Set ol = CreateObject("outlook.application") 
Set myItem = ol.CreateItem(olMailItem) 
With myitem
.To = y 
.Subject = "envoi d'un fichier attaché" 
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body>Bonjour,<p>" _
        & "Vous trouverez ci-joint le tableau de Contrôle pour votre service.  "  _
        & "Merci de bien vouloir me faire un retour avec vos corrections. <p>" _
        & "Cordialement, "<p>" & _
        "Elsie "</b></body><HTML>"
.Attachments.Add ActiveWorkbook.FullName
.Send 
End With
Set ol = Nothing 
ActiveWorkbook.Close
End Sub

Réponse

elsielaure 290Messages postés 26 avril 2010Date d'inscription 8 mars 2011Dernière intervention 19 mai 2010 à 09:48

Bonjour,

Cette macro marche parfaitement, j'ai du faire une erreur hier.

Private Sub Bouton6_QuandClic()
Dim y, chemin, nom As String
Dim x As Integer
Dim ol As Object, myItem As Object
chemin = ActiveWorkbook.Path
y = Sheets(1).Range("M1").Value
x = Sheets(1).Range("K1").Value
nom = "contrôle " & Sheets(x).Name
ThisWorkbook.Sheets(x).Copy
ActiveWorkbook.SaveAs chemin & "\" & nom
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = y
myItem.Subject = "envoi d'un fichier attaché"
myItem.Body = "Bonjour, " & Chr(10) & "Vous trouverez ci-joint le tableau de Contrôle pour votre service. " & Chr(10) & "Merci de bien vouloir me faire un retour avec vos corrections. " & Chr(10) & "Cordialement, " & Chr(10) & "Elsie "
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send
Set ol = Nothing
ActiveWorkbook.Close
End Sub

Merci beaucoup pour ton aide !!
Elsie

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

Macro excel envoi mail avec fichier joint [Résolu]

Macro excel envoi mail avec fichier joint »

Passage au tout numérique : quel coût pour les particuliers ?