Re : Envoyer feuil par mail.
bonsoir,
Très humblement, à tester, mais cette macro fonctionne de mon coté pour envoyer par mail la feuille nommée "mail" sans envoyer le classeur en entier:
Sheets(Array("mail")).Copy
Dim Tableau As Variant
Dim i As Integer
Tableau = Array("nom1@adresse1", "nom2@adresse2)
For i = 0 To 1 '........... 0+1 = 2 adresses, pour 3 adresse écrire 0 TO 2
ActiveWorkbook.SendMail Recipients:=Tableau(i), Subject:="sujet du mail"
Next i
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Bien à vous,
MTh