VBA pour extraire plage de donnée excel et envoyer par mail

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

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:

---

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

---