rebonjour Nyco
j'espere que cet exemple pourra t'aider
Sub EnvoiMail()
Dim classeur As String, Destinataires As String
classeur = ActiveWorkbook.FullName
Dim message As String
Dim nouveau_mail As New Outlook.Application
Dim objet_mail As MailItem
Dim X As Byte, i As Byte
Set nouveau_mail = New Outlook.Application
Set objet_mail = nouveau_mail.CreateItem(olMailItem)
'dans cet exemple : la liste des destinataires se trouve dans
'la colonne A de la feuille "personnalisation" , à partir de la cellule A1
'recuperer le numero de la derniere ligne non vide dans la colonne A
X = Sheets("Personnalisation").Range("A65536").End(xlUp).Row
For i = 1 To X
Destinataires = Destinataires & Sheets("Personnalisation").Cells(i, 1) & ";"
Next i
With objet_mail
.To = Destinataires
.Subject = "information"
.Attachments.Add (classeur)
.Display
'.Send
End With
End Sub
bonne soiree
MichelXld