petite modif , macro envoie mail

[letroubadour]

bonjour le forum

dans mon fichier lorsque l'on arrive a 30 jours de l'échéance en appuyant sur le bouton un mail part et dans la case envoie s'affiche "mail envoyé"

je que je veux rajouter :

lorsque l'échéance est passée (cellules rouge) ça renvoie le même mail et ça met dans la case envoie "deuxième mail"

j'ai bien essayé mais ça marche pas alors je reviens encore vers vous

Merci

Le troubadour

 

[Yaloo]

Re : petite modif , macro envoie mail

Bonsoir letroubadour,

Dans le code de la feuille, tu as une macro événementielle te permettant de faire ce que tu demandes. Tu as dû rajouter une colonne sans modifier la macro, donc il faut modifier comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns(5)) Is Nothing Then Exit Sub
If Target - Date > Cells(18, 10) Then Cells(Target.Row, 7) = ""
End Sub

A+

Martial

 

[letroubadour]

Re : petite modif , macro envoie mail

Merci Yaloo

il n'y avait pas grand chose en fait , mais pour moi qui n'y connais pas grand chose .....

le sujet et clos

encore merci pour tout


RAPHAEL