Bonjour,
C'est décidé , je vais plancher avec un bouquin sur les macro VBA
car je sèche complêtement . La solution est surement dans les 3 liens
que tu m'as donné mais je ne sais pas comment les adapter
à la macro initiale.
Je te joins donc cette macro en espérant que tu pourras m'aider à la
finaliser par l'envoi auto du mail.Elle se rapporte à module 1.
Je fonctionne avec excel 2000 et outlook 2000.
Merci de passer un peu de temps pour m'aider.
Bien cordialement,
Thierry
Sub diffusion()
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("Information incident").Range("AJ65536").End(xlUp).Row
For i = 2 To X
Destinataires = Destinataires & Sheets("Information incident").Cells(i, 36) & ";"
Next i
With objet_mail
.To = Destinataires
.Subject = "INFORMATION INCIDENT"
.Attachments.Add (classeur)
.Display
.Send
End With
End Sub