If Target.Value <> CDate("25/09/2006") Then Exit
par
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
If Target.Value <> CDate("25/09/2006") Then Exit
par
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
If Target.Value <> CDate("25/09/2006") Then Exit
par
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonsoir
A condition que "Target soit une date valide.
RemplaceIf Target.Value <> CDate("25/09/2006") Then Exit
par
If Target.Value <> Now - 2 Then Exit Sub
--
Salutations
JJ
"pmartini" a écrit dans le message de
news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonsoir
A condition que "Target soit une date valide.
Remplace
If Target.Value <> CDate("25/09/2006") Then Exit
par
If Target.Value <> Now - 2 Then Exit Sub
--
Salutations
JJ
"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message de
news: 3D56039B-9410-4713-BC88-2D01CB1F8169@microsoft.com...
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonsoir
A condition que "Target soit une date valide.
RemplaceIf Target.Value <> CDate("25/09/2006") Then Exit
par
If Target.Value <> Now - 2 Then Exit Sub
--
Salutations
JJ
"pmartini" a écrit dans le message de
news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Où puis-je trouver une formation facile ???
Entre beaucoup d'autre..., la signature de Jacquouille
Merci beaucoup; cela paraît simple mais je ne connais pas VBA.
Où puis-je trouver une formation facile ???Bonsoir
A condition que "Target soit une date valide.
RemplaceIf Target.Value <> CDate("25/09/2006") Then Exit
par
If Target.Value <> Now - 2 Then Exit Sub
--
Salutations
JJ
"pmartini" a écrit dans le message
de
news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Où puis-je trouver une formation facile ???
Entre beaucoup d'autre..., la signature de Jacquouille
Merci beaucoup; cela paraît simple mais je ne connais pas VBA.
Où puis-je trouver une formation facile ???
Bonsoir
A condition que "Target soit une date valide.
Remplace
If Target.Value <> CDate("25/09/2006") Then Exit
par
If Target.Value <> Now - 2 Then Exit Sub
--
Salutations
JJ
"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message
de
news: 3D56039B-9410-4713-BC88-2D01CB1F8169@microsoft.com...
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Où puis-je trouver une formation facile ???
Entre beaucoup d'autre..., la signature de Jacquouille
Merci beaucoup; cela paraît simple mais je ne connais pas VBA.
Où puis-je trouver une formation facile ???Bonsoir
A condition que "Target soit une date valide.
RemplaceIf Target.Value <> CDate("25/09/2006") Then Exit
par
If Target.Value <> Now - 2 Then Exit Sub
--
Salutations
JJ
"pmartini" a écrit dans le message
de
news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le message de
news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message de
news: 3D56039B-9410-4713-BC88-2D01CB1F8169@microsoft.com...
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le message de
news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message si
une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message de
news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le message
de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: en7lTm%234GHA.556@TK2MSFTNGP03.phx.gbl...
Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message
de news: 3D56039B-9410-4713-BC88-2D01CB1F8169@microsoft.com...
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message de
news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le message
de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:
Dans l'exemple ci-dessous.....
....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%23ScOut%Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message de
news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le message
de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:
Dans l'exemple ci-dessous.....
....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" <nospams@not> a écrit dans le message de news:
%23ScOut%234GHA.3376@TK2MSFTNGP05.phx.gbl...
Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: en7lTm%234GHA.556@TK2MSFTNGP03.phx.gbl...
Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message
de news: 3D56039B-9410-4713-BC88-2D01CB1F8169@microsoft.com...
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:
Dans l'exemple ci-dessous.....
....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%23ScOut%Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message de
news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le message
de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je valide
une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
Un petit Today, peut-être ?
ne retourne rien du tout ,-((
ppppffffffLe Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" a écrit dans le message de
news: O9j8QB$....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%23ScOut%Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message de
news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le message
de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
Un petit Today, peut-être ?
ne retourne rien du tout ,-((
ppppffffff
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:
Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: O9j8QB$4GHA.3604@TK2MSFTNGP03.phx.gbl...
....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" <nospams@not> a écrit dans le message de news:
%23ScOut%234GHA.3376@TK2MSFTNGP05.phx.gbl...
Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: en7lTm%234GHA.556@TK2MSFTNGP03.phx.gbl...
Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le message
de news: 3D56039B-9410-4713-BC88-2D01CB1F8169@microsoft.com...
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
Un petit Today, peut-être ?
ne retourne rien du tout ,-((
ppppffffffLe Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" a écrit dans le message de
news: O9j8QB$....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%23ScOut%Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message de
news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le message
de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06. Comment
puis-je faire pour que la condition soit la suivante: Envoi du message
si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Re..pFFFFVa falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Cher Grand Breton,
Le Petit Alsacien du fond de sa cambrousse signal au Grand Breton
Que Now retourne la date complète soit: jj/mm/aaaa hh:mm:ss
et que now-2 retourne: jj-2/mm/aaa hh:mm:ss
27/09/06 hh:mm:ss ....pour Aujourd'hui-2
Ce qui répond à la demande de Monsieur qui est:si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
et que:Un petit Today, peut-être ?
ne retourne rien du tout ,-((
Sur-ce je lève mon verre (de bière) et te souhaite une bonne santé.
tchin-tchin
JJ
"Jacky" a écrit dans le message de news:
uSjlxv$ppppffffffLe Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" a écrit dans le message de
news: O9j8QB$....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%23ScOut%Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message
de news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le
message de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06.
Comment
puis-je faire pour que la condition soit la suivante: Envoi du
message si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Re..pFFFF
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Cher Grand Breton,
Le Petit Alsacien du fond de sa cambrousse signal au Grand Breton
Que Now retourne la date complète soit: jj/mm/aaaa hh:mm:ss
et que now-2 retourne: jj-2/mm/aaa hh:mm:ss
27/09/06 hh:mm:ss ....pour Aujourd'hui-2
Ce qui répond à la demande de Monsieur qui est:
si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
et que:
Un petit Today, peut-être ?
ne retourne rien du tout ,-((
Sur-ce je lève mon verre (de bière) et te souhaite une bonne santé.
tchin-tchin
JJ
"Jacky" <dupont@martin.fr> a écrit dans le message de news:
uSjlxv$4GHA.3840@TK2MSFTNGP06.phx.gbl...
ppppffffff
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:
Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: O9j8QB$4GHA.3604@TK2MSFTNGP03.phx.gbl...
....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" <nospams@not> a écrit dans le message de news:
%23ScOut%234GHA.3376@TK2MSFTNGP05.phx.gbl...
Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message
de news: en7lTm%234GHA.556@TK2MSFTNGP03.phx.gbl...
Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le
message de news: 3D56039B-9410-4713-BC88-2D01CB1F8169@microsoft.com...
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06.
Comment
puis-je faire pour que la condition soit la suivante: Envoi du
message si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Re..pFFFFVa falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Cher Grand Breton,
Le Petit Alsacien du fond de sa cambrousse signal au Grand Breton
Que Now retourne la date complète soit: jj/mm/aaaa hh:mm:ss
et que now-2 retourne: jj-2/mm/aaa hh:mm:ss
27/09/06 hh:mm:ss ....pour Aujourd'hui-2
Ce qui répond à la demande de Monsieur qui est:si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
et que:Un petit Today, peut-être ?
ne retourne rien du tout ,-((
Sur-ce je lève mon verre (de bière) et te souhaite une bonne santé.
tchin-tchin
JJ
"Jacky" a écrit dans le message de news:
uSjlxv$ppppffffffLe Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" a écrit dans le message de
news: O9j8QB$....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%23ScOut%Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message
de news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le
message de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06.
Comment
puis-je faire pour que la condition soit la suivante: Envoi du
message si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Loin de moi l'idée de me quereller avec l'Alsace, pays des plus beaux
fruits de France, tels le vin et les filles.
Mais, il n'y a point de conflit "Est / Ouest" et encore moins entre Jacques.
Frère Jacques
Je comprends ton ire.
Loin de moi l'idée de me quereller avec l'Alsace, pays des plus beaux
fruits de France, tels le vin et les filles.
De plus, comme moi, tu es un Saint très vénéré et nous avons en plus, les
coquilles.
Bon, ceci dit et écrit.
Si tu mets dans une cel =maintenant. Tu vas figer le temps, avec des min
et des sec.
Ensuite, tu vas dans tes macros, et tu démarres ta macro, dans laquelle il
y a la condition que si maintenant de la cel n'est pas égal au maintenant
de la macro, alors...
Or, comment cela se peut-il que les deux maintenant soient identiques,
puisque différents??
C'était cela que je voulais souligner, et non point te quereller.
Pour ce qui est du loup, chez nous, on parle du bout de sa queue...-))
Sur ce, veuillez recevoir, cher Baptême, mes bières les plus sincères.
Au fait, lesquelles préfères-tu?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%Re..pFFFFVa falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Cher Grand Breton,
Le Petit Alsacien du fond de sa cambrousse signal au Grand Breton
Que Now retourne la date complète soit: jj/mm/aaaa hh:mm:ss
et que now-2 retourne: jj-2/mm/aaa hh:mm:ss
27/09/06 hh:mm:ss ....pour Aujourd'hui-2
Ce qui répond à la demande de Monsieur qui est:si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
et que:Un petit Today, peut-être ?
ne retourne rien du tout ,-((
Sur-ce je lève mon verre (de bière) et te souhaite une bonne santé.
tchin-tchin
JJ
"Jacky" a écrit dans le message de news:
uSjlxv$ppppffffffLe Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" a écrit dans le message de
news: O9j8QB$....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%23ScOut%Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message
de news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le
message de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06.
Comment
puis-je faire pour que la condition soit la suivante: Envoi du
message si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Loin de moi l'idée de me quereller avec l'Alsace, pays des plus beaux
fruits de France, tels le vin et les filles.
Mais, il n'y a point de conflit "Est / Ouest" et encore moins entre Jacques.
Frère Jacques
Je comprends ton ire.
Loin de moi l'idée de me quereller avec l'Alsace, pays des plus beaux
fruits de France, tels le vin et les filles.
De plus, comme moi, tu es un Saint très vénéré et nous avons en plus, les
coquilles.
Bon, ceci dit et écrit.
Si tu mets dans une cel =maintenant. Tu vas figer le temps, avec des min
et des sec.
Ensuite, tu vas dans tes macros, et tu démarres ta macro, dans laquelle il
y a la condition que si maintenant de la cel n'est pas égal au maintenant
de la macro, alors...
Or, comment cela se peut-il que les deux maintenant soient identiques,
puisque différents??
C'était cela que je voulais souligner, et non point te quereller.
Pour ce qui est du loup, chez nous, on parle du bout de sa queue...-))
Sur ce, veuillez recevoir, cher Baptême, mes bières les plus sincères.
Au fait, lesquelles préfères-tu?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" <dupont@martin.fr> a écrit dans le message de news:
%23jpATFA5GHA.5012@TK2MSFTNGP03.phx.gbl...
Re..pFFFF
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Cher Grand Breton,
Le Petit Alsacien du fond de sa cambrousse signal au Grand Breton
Que Now retourne la date complète soit: jj/mm/aaaa hh:mm:ss
et que now-2 retourne: jj-2/mm/aaa hh:mm:ss
27/09/06 hh:mm:ss ....pour Aujourd'hui-2
Ce qui répond à la demande de Monsieur qui est:
si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
et que:
Un petit Today, peut-être ?
ne retourne rien du tout ,-((
Sur-ce je lève mon verre (de bière) et te souhaite une bonne santé.
tchin-tchin
JJ
"Jacky" <dupont@martin.fr> a écrit dans le message de news:
uSjlxv$4GHA.3840@TK2MSFTNGP06.phx.gbl...
ppppffffff
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:
Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: O9j8QB$4GHA.3604@TK2MSFTNGP03.phx.gbl...
....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" <nospams@not> a écrit dans le message de news:
%23ScOut%234GHA.3376@TK2MSFTNGP05.phx.gbl...
Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message
de news: en7lTm%234GHA.556@TK2MSFTNGP03.phx.gbl...
Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" <pmartini@discussions.microsoft.com> a écrit dans le
message de news:
3D56039B-9410-4713-BC88-2D01CB1F8169@microsoft.com...
Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06.
Comment
puis-je faire pour que la condition soit la suivante: Envoi du
message si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = "info@paal.fr"
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................
Loin de moi l'idée de me quereller avec l'Alsace, pays des plus beaux
fruits de France, tels le vin et les filles.
Mais, il n'y a point de conflit "Est / Ouest" et encore moins entre Jacques.
Frère Jacques
Je comprends ton ire.
Loin de moi l'idée de me quereller avec l'Alsace, pays des plus beaux
fruits de France, tels le vin et les filles.
De plus, comme moi, tu es un Saint très vénéré et nous avons en plus, les
coquilles.
Bon, ceci dit et écrit.
Si tu mets dans une cel =maintenant. Tu vas figer le temps, avec des min
et des sec.
Ensuite, tu vas dans tes macros, et tu démarres ta macro, dans laquelle il
y a la condition que si maintenant de la cel n'est pas égal au maintenant
de la macro, alors...
Or, comment cela se peut-il que les deux maintenant soient identiques,
puisque différents??
C'était cela que je voulais souligner, et non point te quereller.
Pour ce qui est du loup, chez nous, on parle du bout de sa queue...-))
Sur ce, veuillez recevoir, cher Baptême, mes bières les plus sincères.
Au fait, lesquelles préfères-tu?
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%Re..pFFFFVa falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Cher Grand Breton,
Le Petit Alsacien du fond de sa cambrousse signal au Grand Breton
Que Now retourne la date complète soit: jj/mm/aaaa hh:mm:ss
et que now-2 retourne: jj-2/mm/aaa hh:mm:ss
27/09/06 hh:mm:ss ....pour Aujourd'hui-2
Ce qui répond à la demande de Monsieur qui est:si une cellule de la colonne A est égale à la date du jour moins 2 ?
Target étant une date quelconque de la colonne A comparé à Now-2
et que:Un petit Today, peut-être ?
ne retourne rien du tout ,-((
Sur-ce je lève mon verre (de bière) et te souhaite une bonne santé.
tchin-tchin
JJ
"Jacky" a écrit dans le message de news:
uSjlxv$ppppffffffLe Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Il va le mettre comment le "aujoudhui", le loup, la dedans:If Target.Value <> CDate("25/09/2006") Then Exit Sub
Le Monsieur, il avait bien dit:Dans l'exemple ci-dessous.....
Ohoouuuuu, ohouuuuu, attention le loup... montre son cou.
;o))
JJ
"Jacquouille" a écrit dans le message de
news: O9j8QB$....
Le Loup, il voit que le Monsieur il parlait de Aujourdhui et que on lui
sert du Now.
Va falloir que je vous explique les sub tilités du Grand Breton?
Un petit Today, peut-être ?
Quand à ma ...., elle te salue bien, cher "Baptême". -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Jacky" a écrit dans le message de news:
%23ScOut%Bonsoir Jacques
Quand on parle du loup, il montre sa..........
;o))
--
Salutations
JJ
"Jacquouille" a écrit dans le message
de news: en7lTm%Bonjour
B1=aujourdhui()-2 ... donnera la date d'avant-hier.
ou, en A1 une date ---> ¡-2
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"pmartini" a écrit dans le
message de news:Bonjour,
Dans l'exemple ci-dessous, j'envoie un message via Outlook si je
valide une
cellule de la colonne A et qu'elle est différente du 25/09/06.
Comment
puis-je faire pour que la condition soit la suivante: Envoi du
message si une
cellule de la colonne A est égale à la date du jour moins 2 ?
Merci pour votre aide.
Pierre.
..................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value <> CDate("25/09/2006") Then Exit Sub
Dim objOutlk
Dim ObjOutlkMail
On Error Resume Next
Set objOutlk = GetObject(, "Outlook.Application")
If Err <> 0 Then Set objOutlk = CreateObject("Outlook.Application")
On Error GoTo 0
Set ObjOutlkMail = _
objOutlk.CreateItem(olMailItem)
With ObjOutlkMail
.To = ""
.Body = "Voir tableau des retards ! !"
.Send
End With
Set ObjOutlkMail = Nothing
Set objOutlk = Nothing
End If
End Sub
..........................................................................