J'aimerais avoir une macro qui permet d'envoyer automatiquement mon fichier excel( via outlook), a partir d'une liste de destinataire sur un onglet et non directement dans le code. Merci

Est-ce que tu as la routine pour l'envoyer diectement en passant par le code?

Sub envoimail_outlook()
'creation de l'objet e-mail
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailitem)
'caracteristique du e-mail
With olmail
.To = "toto@excel.com" & ";" & "tata@excel.com"
'affiche le nom du fichier comme objet du message
.Subject = "voici le document"
.body = "tel que demande voici le document"
.attachments.Add "c:\test.xls"
.send

End With

End Sub

C'est pas compliqué...

1-) Nommer la cellule dans ton Spreadsheet qui contient l'adresse du destinataire (pour l'exemple j'ai nommé la cellule "To")

2-) Dans la macro ajouter (la variable prendra la valeur qui est dans la cellule)
vTo = Range("To").Value

3-) Remplacer:
.To = "toto@excel.com" & ";" & "tata@excel.com"
par
.To = vTo


Dans une cellule tu peux mettre plusieurs adresse de courriel en autant que tu les sépare par des ;


Salutations
Eric