Discussion :

[setepenre]

Bonjour,

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

Code :

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

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.

[MarcelG]

Bonjour setepenre

Array signifie Tableau.

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

Code :

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

1
2
3
4
5
6
7
Public Sub ESSAI()
Dim MailTab As Variant
 
MailTab = Range("matable")
Application.Dialogs(xlDialogSendMail).Show MailTab
 
End Sub

[setepenre]

Ah oui mais non ! Ce serait trop simple.
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.

[MarcelG]

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

Code :

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

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

[setepenre]

Ca marche