Pour Michel

[calimero]

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