petite modif , macro envoie mail

letroubadour · 8 Mai 2013

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 · 13 Mai 2013

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 :

VB:

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 · 13 Mai 2013

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

petite modif , macro envoie mail

letroubadour

XLDnaute Occasionnel

Pièces jointes

Yaloo

XLDnaute Barbatruc

letroubadour

XLDnaute Occasionnel

Discussions similaires

petite modif , macro envoie mail

letroubadour

XLDnaute Occasionnel

Pièces jointes

Yaloo

XLDnaute Barbatruc

letroubadour

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency