Avoir une macro pour envoyer mon fichier Excel directement par Outlook
Fermé
sylmarco
Messages postés
81
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
19 novembre 2024
-
24 avril 2019 à 18:07
juer31 Messages postés 112 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 15 janvier 2025 - 10 mai 2019 à 13:49
juer31 Messages postés 112 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 15 janvier 2025 - 10 mai 2019 à 13:49
Bonjour, J'ai besoin d'aide car je suis très débutante dans les macros. J'ai un fichier Excel.xlsm que je voudrais, lorsque je clique sur le bouton que j'ai préparé, qu'il s'envoie par Outlook en mettant en pièce jointe ce document, envoyer à : Nathan.@testlb.ca, en cc à : sylvie@testlb.ca, objet : Mémo pour client # (j'aimerais que ça mette le numéro de client de mon fichier Excel à la cellule D4) - (J'aimerais que ça mette le nom du client de mon fichier Excel à la cellule D5) valide à partir du (j'aimerais que ça mette la date de mon fichier Excel à la cellule D2)prix à me fournir, texte du courriel : Bonjour Nathan, voici les prix à me compléter pour ton client.
Est-ce que quelqu'un peut m'aider svp
Merci beaucoup ! sylmarco
Est-ce que quelqu'un peut m'aider svp
Merci beaucoup ! sylmarco
A voir également:
- Avoir une macro pour envoyer mon fichier Excel directement par Outlook
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
1 réponse
juer31
Messages postés
112
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
15 janvier 2025
6
26 avril 2019 à 15:50
26 avril 2019 à 15:50
Voici la solution a ton problème. Un clic sur merci et c'est régler pour moi!
Sub EnvoiMail()
Dim lemail As Variant
Dim source_file As String
source_file = ThisWorkbook.FullName
Set lemail = CreateObject("outlook.application")
With lemail.CreateItem(olMailItem)
.Subject = "Mémo pour client #" & Cells(4, 4) & " - " & Cells(5, 4) & " valide à partir du " & Cells(2, 4) & " prix à me fournir"
.To = "Nathan.@testlb.ca"
.CC = "sylvie@testlb.ca"
.Body = "Bonjour Nathan, voici les prix à me compléter pour ton client."
strLocation = source_file
.Attachments.Add (strLocation)
.display
End With
End Sub
Sub EnvoiMail()
Dim lemail As Variant
Dim source_file As String
source_file = ThisWorkbook.FullName
Set lemail = CreateObject("outlook.application")
With lemail.CreateItem(olMailItem)
.Subject = "Mémo pour client #" & Cells(4, 4) & " - " & Cells(5, 4) & " valide à partir du " & Cells(2, 4) & " prix à me fournir"
.To = "Nathan.@testlb.ca"
.CC = "sylvie@testlb.ca"
.Body = "Bonjour Nathan, voici les prix à me compléter pour ton client."
strLocation = source_file
.Attachments.Add (strLocation)
.display
End With
End Sub
3 mai 2019 à 20:17
Sylmarco
3 mai 2019 à 20:48
6 mai 2019 à 14:57
6 mai 2019 à 18:31
De plus, j'ai un autre petit problème. Tout mon formulaire est protégé par un mot de passe à l'exceptions des cellules qui doivent être remplies par mes vendeurs. Ce qui fait que mes macros ne fonctionnent plus lorsque je protège ma feuille. Y a--t-il moyen de contourner ça ?
Merci énormément de votre aide !
Sylmarco
6 mai 2019 à 19:39