Envoi de mail par VBA

Bonjour,

Je veux pouvoir envoyer un fichier par mail à partir de VBA.
J'ai vu dans le tutoriel ce petit bout de programme :

Code:

---

1 2 3 4

Dim MailTab As Variant   MailTab = Array("mimi@test.fr", "riri@test.fr", "fifi@test.fr") Application.Dialogs(xlDialogSendMail).Show MailTab

---

Mais à la place de mimi, fifi et riri, je voudrais aller chercher de données dans une table.
Comment charger MailTab avec cette table ?

Merci pour votre aide.

Bonjour setepenre

Array signifie Tableau.

Si ta plage est nommée (exemple "matable"), alors tu peux affecter ce nom dans ton code

Code:

---

1 2 3 4 5 6 7

Public Sub ESSAI() Dim MailTab As Variant   MailTab = Range("matable") Application.Dialogs(xlDialogSendMail).Show MailTab   End Sub

---

Ah oui mais non ! Ce serait trop simple.:aie:
En effet ma routine est attachée à un fichier excel que j'appellerai "Principal". J'ai un deuxième fichier ouvert que j'appellerai "PièceJointe" et qui, comme son nom l'indique, va être joint au mail.
Au moment où ma commande Dialogs est lancée, c'est le fichier "PièceJointe" qui est actif. Elle ne reconnaît donc pas la feuille "Tables" appartenant à "Principal" et dans laquelle se trouve ma liste de correspondants.

Dans ce cas, si j'ai bien compris ton problème

Code:

---

1 2 3 4 5 6 7

Public Sub ESSAI() Dim MailTab As Variant   MailTab = Workbooks("Principal").Sheets("lafeuille").Range("matable") Application.Dialogs(xlDialogSendMail).Show MailTab   End Sub

---

:yaisse: Ca marche
:merci: