XL 2016 Excel avec envoi par mail en cliquant sur le nom d'un client selon une sélcetion

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion ellea02
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

ellea02

XLDnaute Junior
Bonjour à tous,

Je cherche à envoyer par mail une sélection Excel qui selon le nom du client l'envoie à son adresse mail.

Un client peut se nommer Client X N°1, Client X n°2..... Client Y N°....

Lorsque je souhaite envoyer au client X la sélection devra me prendre le N° 1 et le N°2.

Chaque onglet correspond à un jour de travail et nous envoyons la sélection aux clients tous les jours.

Pouvez vous m'aider?

Nous envoyons 50 mails par jour à nos clients et cela devient compliquer de tout faire en manuel
 

Pièces jointes

Trier par date Trier par votes
Bonjour Ellea02, le forum,

Voici un exemple si j'ai bien compris la demande.

Le choix du client se fait en cliquant sur le bouton Client créé sur la 1ère feuille.

Ensuite une macro est appelée pour l'envoi du mail.
VB: 
Option Explicit
Public client As Range, List, clientAdresse As String, jour
Sub Choix_Client()
Dim clientcherche As String
Dim i As Single, r As String, r2 As String

jour = ""
clientcherche = InputBox("Client")
    Set client = Feuil4.Columns(1).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Find(clientcherche)
clientAdresse = client.Offset(, 1)

For i = 2 To 5
If Cells(i, 1) Like "Client " & clientcherche & "*" Then
    r = Cells(i, 1) & ";"
    r2 = Cells(i, 2) & ";"
    List = List & r
    jour = jour & Chr(10) & r2
End If
Next i
Call mail
End Sub
Sub mail()
Dim Myoutlook As Object
Dim MyItem As Object
Dim List As String, Attache As String, Attache2 As String, Sujet As String
Dim f As Worksheet, f1 As Worksheet, Body As String

Set Myoutlook = CreateObject("Outlook.Application")
Set MyItem = Myoutlook.CreateItem(0)

Sujet = "Bla bla bla" ' & Feuil1.Range("A1")
Body = "Vos jours de réservation sont :" & Chr(10) & jour
With MyItem
    .To = clientAdresse
    .Subject = Sujet
    .Body = Body
suite:
    .Display
'    '.Send
End With


End Sub

Pour que cela fonctionne, il a fallu cocher "Microsoft Outlook 12.0 Object Library" dans les références VBA. Sinon cela ne peut pas fonctionner.

Voilà qui devrait être un bon début.

Bonne journée.
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Calvus,

Est ce normal que dans le mail, la sélection des jours de réservation ne s'affichent pas? Nous cherchons à faire un copier/coller de ce type dans le mail:

Merci
Nom Client​
jour de réservation​
motif​
Client X n°1​
01-juin​
gfgfgf​
Client X n°2​
02-juin​
fgggd​
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour,

Je t'avoue que j'ai galéré pas mal !
J'aurais mieux fait de partir à la montagne, mais bon... la météo n'est pas de mon coté ! 😉

Voici ce que tu souhaites, enfin j'espère.
Pas mal cherché sur le net pour trouver un code fonctionnel.
VB: 
Option Explicit
Public client As Range, clientAdresse As String
Sub Choix_Client()
Dim clientcherche As String
Dim i As Single, j As String, r As String, r2 As String

clientcherche = InputBox("Choix du client")
Set client = Feuil4.Columns(1).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Find(clientcherche)
If client Is Nothing Then Exit Sub
clientAdresse = client.Offset(, 1)

j = 2
For i = 2 To 5
If Cells(i, 1) Like "Client " & clientcherche & "*" Then
        Cells(j, 10) = Cells(i, 1)
        Cells(j, 11) = Cells(i, 2)
        j = j + 1
End If
Next i
 
Call mail
End Sub
Sub mail()
Dim Myoutlook As Object
Dim MyItem As Object

Dim strHTML As String
Dim i As Byte, j As Byte, Sujet As String
 
Set Myoutlook = CreateObject("Outlook.Application")
Set MyItem = Myoutlook.CreateItem(0)
 
Sujet = Feuil5.Range("C2")
 
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & Feuil5.Range("C3") & "<BR><BR><BR>" & Feuil5.Range("C4") & "<BR><BR>" & Feuil5.Range("C5") & "<BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"
 
For i = 1 To 3 'nombre de lignes (exemple plage A1:B5)
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    For j = 10 To 12 'nombre de colonnes
        strHTML = strHTML & "<TD bgcolor='#F0FFFF'align='center'><FONT COLOR='blue'SIZE=3>" _
        & Cells(i, j) & "</FONT></TD>"
    Next j
    strHTML = strHTML & "</TR>"
Next i
 
 
strHTML = strHTML & "</TABLE>"
 
strHTML = strHTML & "<BR><BR>" & Feuil5.Range("C6") & "<BR>" & Feuil5.Range("C7") & "<BR><BR>" & Feuil5.Range("C8") _
& "<BR>" & Feuil5.Range("C9") & "<BR>" & Feuil5.Range("C10") & "<BR>" & Feuil5.Range("C12") & "<BR>" & Feuil5.Range("C13")
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
 
With MyItem
    .To = clientAdresse
    '.From = "youralias@yourdomain.com"
    .Subject = Sujet
    .HTMLBody = strHTML
    .Display
End With

End Sub

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
170
Phil69970
Phil69970
ELSONCe
  • Question Question
Microsoft 365 Envoi Mail Automatique avec Condition
Réponses
2
Affichages
723
ELSONCe
ELSONCe
F
  • Question Question
XL pour MAC Envoi de rappel automatique de rdv adressé au client à partir d'une feuille excel
Réponses
2
Affichages
739
fred936
F
C
  • Résolu(e)
XL 2013 VBA - Envoi d'un mail avec fichier excel à une liste de destinataires - corps du mail issu d'un mail modèle prédéfini
Réponses
7
Affichages
967
Chrystel01
C
C
  • Question Question
XL 2019 Envoi mail : Condition dans un HTMLBODY
Réponses
2
Affichages
718
Cheyenne_2021
C
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
175
crocrocro
C
Simbaa
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
596
job75
job75
D
  • Question Question
XL 2016 macro pour envoyer une feuille excel par mail en pièce jointe
Réponses
3
Affichages
870
kiki29
kiki29
D
  • Question Question
XL 2013 envoi mail va excel : faire une boucle avec 10 destinataires à chaque envoi
Réponses
5
Affichages
1 K
david54520
D
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
446
Oneida
Oneida
S
  • Résolu(e)
Microsoft 365 Fusion de 2 macro VBA (selection envoi de mail + envoie de fichier PDF)
Réponses
6
Affichages
2 K
soNZOOO
S
D
  • Question Question
XL 2019 Envoi automatique d'un mail d'alerte quand une date est dépassée
Réponses
1
Affichages
3 K
fanch55
fanch55
E
  • Question Question
XL 2013 Envoi mail par macro via exchange
Réponses
1
Affichages
989
Hasco
Hasco
C
  • Question Question
XL 2010 Probleme pour envoi d'un mail depuis excel avec gmail
Réponses
6
Affichages
2 K
chris66000
C
S
  • Question Question
Autres envoi fichier en pièce jointe par mail
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
L
  • Question Question
XL 2016 Sélection onglet Excel envoi par mail en PDF
Réponses
4
Affichages
2 K
LuanaDDC
L
K
  • Question Question
Microsoft 365 Formule INDEX/EQUIV avec plusieurs valeurs pour une même en-tête
Réponses
2
Affichages
2 K
KLfy
K
T
  • Résolu(e)
XL 2016 Envoi d'un mail sous conditions avec Outlook
Réponses
3
Affichages
2 K
TechnologyNewStore
T
Xtian_Québec
  • Question Question
XL 2016 vba Envoi de courriel avec Gmail
Réponses
5
Affichages
5 K
kiki29
kiki29
S
  • Résolu(e)
Microsoft 365 Bouton : Envoi du classeur Excel par mail
Réponses
10
Affichages
4 K
Sylvain29
S
Retour