Création macro pour alerte par mail
Bonjour,
Suite à la réalisation d'un tableau sur Excel 2010, pour suivre les dates des permis poids lourd.
Je souhaite faire une macro pour effectuer une alerte 1 mois avant par mail (outlook).
J'ai essayé de faire
une macro par rapport au tuto sur le net, mais cela ne fonctionne pas pour mon tableau.
Serait-il possible de m'aider afin que je puisse finir mon ficher
Grand merci à vous pour vos réponses.
PJ: Mon document en question
Exemple de macro que j'ai essayé
Sub Alertes()
Dim C As Range, OL As Object, M As Object, Plage As Range
Set olApp = CreateObject("Outlook.application")
With Sheets("Feuil1")
Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each C In Plage
If C.Offset(, 1) - Date = 30 Then
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = C.Offset(, 3)
.Body = C.Offset(, 4)
.Recipients.Add C.Offset(, 2)
'.display
.Send
End With
End If
Next C
End Sub
Salut,
Je suis encore débutant en VBA mais peut être un fichi exemple a cet adresse ...