Bonjour au forum,
J'ai écris ce bout de code qui permet de m'envoyer un email lorsque la date dans la colonne J est égale à la date du jour.
Je rencontre un problème lorsque plusieurs itérations sont présentes dans cette colonne J (donc plusieurs fois la date du jour), je n'arrive pas à comprendre ni à trouver mon erreur...
Private Sub email()
Dim Ligne As Integer
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Set olApp = CreateObject("outlook.application")
Set olMail = olApp.CreateItem(olMailItem)
For Ligne = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Date = Range("J" & Ligne) Then
With olMail
.Subject = "xxxxxx"
.To = "xxx.xxx@xx.xxx" 'Range("D" & Ligne)
.Body = "Bonjour Jessica," & vbCrLf & vbCrLf & "M. " & Range("B" & Ligne) & " va débuter sa formation " & Range("E" & Ligne) & _
" avec le manager " & Range("D" & Ligne) & " le " & Range("G" & Ligne) & "." & vbCrLf & vbCrLf & "Bonne fin de journée !"
.send '.Display
End With
End If
Next Ligne
End Sub
Merci d'avance pour votre aide