Bonjour le forum et ARMO
Voilà un bout de code trouver sur un fil pour l'envoi de Mail, mais je cherche encore pour la mise en forme des données ( faire un tableau et là BUG !!!)
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Dim TxtF$, TxtT$, i%
i = 490
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
TxtF = Range("B1") & " au " & Range("B5") & Chr(10)
Do While Range("A" & i) <> ""
TxtF = TxtF & Range("A" & i) & " : places disponibles " & Range("G" & i) & Chr(10)
i = i + 1
Loop
i = 499
Do While Range("A" & i) <> ""
TxtT = TxtT & Format(Range("A" & i), "dddd") & " : places disponibles " & Range("B" & i) & Chr(10)
i = i + 1
Loop
With objMail
.To = "Ton adresse"
.Subject = "Sujet du Mail
.Body = TxtF & Chr(10) & TxtT & Chr(10) & Application.UserName
.Display
End With
objMail.Send
Set objMail = Nothing
Set objOL = Nothing
A+ JPM