Comment indiquer date d'éxécution macro dans une cellule [Résolu]

Messages postés
125
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
7 octobre 2019
- - Dernière réponse : PYGOS69
Messages postés
125
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
7 octobre 2019
- 4 févr. 2019 à 15:14
Bonjour,

Quand un délai est dépassé, j'envoie un mail par VBA.

Comment indiquer dans la colonne 18 (S), la date du jour ?(date d'envoi du mail)

Voici le code vba :

Sub envoimail()
'
'envoi mail si dossier n'est pas à jour
'
'déclaration objets
'
Dim messagerie As Object
Dim email As Object
Dim cel As Range
Dim cond1 As Integer

Set messagerie = CreateObject("Outlook.Application")

cond1 = 1 'jours

For Each cel In Range("A3:A" & Range("A3").End(xlDown).Row)
If cel.Offset(, 16).Value = cond1 Then

Set email = messagerie.CreateItem(0)


With email
.to = cel.Offset(, 0).Value
.Subject = cel.Offset(, 19).Value
.body = "Bonjour, votre autorisation de xxxx n° " & cel.Offset(, 4) & " pour la commune " & cel.Offset(, 2) & ", arrive à expiration le " & cel.Offset(, 13) & "." & vbCrLf & "Veuillez adresser à xxxxx, une autorisation de stationner en cours de validité, pour maintenir la prise en charge de xxxxx." & vbCrLf & "Bien cordialement," & vbCrLf & "xxxxxxxxxxxxxxx"

.ReadReceiptRequested = True
.display ' à remplacer par .send si ok
End With

Set email = Nothing

End If
Next cel

Set messagerie = Nothing

End Sub

Merci d'avance,

Excel 2010
Afficher la suite 

1 réponse

Messages postés
24581
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
15 octobre 2019
4826
0
Merci
Bonjour
rajouter quelque part cette ligne:

=RANGE("cell")=date
cell étant la cellule de votre choix

crdlmnt
PYGOS69
Messages postés
125
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
7 octobre 2019
2 -
Bonjour Vaucluse,

Merci pour votre réactivité !

C'est parfait , j'ai rajouté

cel.Offset(, 17).Value = Date

Bonne fin de journée !
Commenter la réponse de Vaucluse