Discussion :

[Victor7155]

Bonjour a tous!

Comment fais t on svp avec le code ci-dessous pour envoyer la page excel "sheet1" a une liste de destinataire ( une vingtaine) situé dans la page sheet2 A1:A20?

Merci bcp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Envoi()
Dim Dest(3) As String, Sujet As String
Sheets("Synthese").Select 'Saisir le nom exact la feuille du classeur
ActiveSheet.Copy 'crée une copie de la feuille active
Dest(0) = "xxxxxx@aaaa.fr" 'Saisir l'adresse mail 1
Dest(1) = "yyyyyyy@aaaa.fr.fr" 'Saisir l'adresse mail 2
Dest(2) = "ZZZZZ@aaaa.fr" 'Saisir l'adresse mail 2
Sujet = "Envoi de la feuille de synthèse "
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
MsgBox ("Synthèse envoyée")
End Sub

[halaster08]

Bonjour,

Il faut changer la taille du tableau dest(), puis le remplir via une boucle

[Victor7155]

Bonjour et Merci,

Etant vraiment un novice je ne sais pas encore comment faire une boucle

Dsl du retard

Merci encore

[halaster08]

Etre novice ne dispense pas d'un minimum de recherche et d'effort.
Il y a sur ce site (et sur pleins d'autres) de nombreux tutos pour te former au VBA.
Pour les boucles: http://silkyroad.developpez.com/vba/boucles/