Discussion :

[Couettecouette]

Bonjour,

Je voudrais savoir si vous avez une solution pour extraire les plages de données et faire un envoi par mail.

Voici le tableau exemple :

email franchise restaurant article prix marge tx utilisation stock
xxx@xxx.com A 1 a xxxx yyyyy
xxx@xxx.com A 2 b xxxx yyyyy
xxx@xxx.com A 3 c xxxx yyyyy
xxx@xxx.com A 4 d xxxx yyyyy
xxx@xxx.com A 5 e xxxx yyyyy
xxx@xxx.com A 6 f xxxx yyyyy
xxx@xxx.com A 7 g xxxx yyyyy
xxx@xxx.com A 8 h xxxx yyyyy
yyyy@yyyyy.com B 1 a xxxx yyyyy
yyyy@yyyyy.com B 2 b xxxx yyyyy
yyyy@yyyyy.com B 3 c xxxx yyyyy
yyyy@yyyyy.com B 4 d xxxx yyyyy
yyyy@yyyyy.com B 5 e xxxx yyyyy
zzz@zzz.com C 1 a xxxx yyyyy
zzz@zzz.com C 2 b xxxx yyyyy
zzz@zzz.com C 3 c xxxx yyyyy
zzz@zzz.com C 4 d xxxx yyyyy
zzz@zzz.com C 5 e xxxx yyyyy


L'idée est de faire un programme VBA qui va dire de faire une tableau avec toutes les lignes des données de la franchise A, et envoyer par mail au mail de la franchise A. Idem pour la B, la C ...

Est-ce possible ?

Merci de votre aide.

[Daniel.C]

Bonsoir,

Tu peux t'inspirer de la macro suivante, éventuellement en recopiant les lignes pour les regrouper avant envoi. La plage envoyée est la plage sélectionnée. Cette méthode utilise obligatoirement Outlook.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub EnvoiPlage()
   ' plage à envoyer
   ActiveSheet.Range("A1:B5").Select
 
   ' affiche le message
   ActiveWorkbook.EnvelopeVisible = True
 
   Set ol = CreateObject("Outlook.application")
   With ActiveSheet.MailEnvelope
      ' ajoute un texte explicatif
      .Introduction = "cellules d'exemple."
      .Item.To = "test@test.fr"
      .Item.Subject = "Sujet"
      '.Item.SentOnBehalfOfName = "test3@test.com"
      .Item.Send
   End With
End Sub