Discussion :

[csilas]

Bonjour a tous,

Avant de commencer, je voulais vous préciser que j'ai regarder sur la toile.
Mais rien de précis. C'est la raison pour laquelle je demande votre aide.

Je vous explique :
(Le tout en VBA)
Je dois écrire un code en vba permettant d'envoyer un mail (Ceci j'ai reussi) mais pour envoyer un mail j'ai une condition. Je dois envoyer ce mail aux personnes le lendemain de leur formation. Donc (Date_fin_formation) + (J+1) = Envoi du mail.
Ceci est mon problème. Je dois donc faire la soustraction entre deux dates pour savoir si la personne doit recevoir ou pas ce mail.£Je suis complètement perdu.

J'ai tester avec Datediff ("d", Date_fin_formation, date), mais sa ne marche pas. Sa ne donne pas le bon jour.
par exemple :

Private Sub Soustraction_Click()

Fin_formation = #7/6/2008#
Résultat = DateDiff("d", Fin_formation, Date)
If Résultat >= 3 And mailing = 0 Then
MsgBox Résultat & (" / Mails envoyés")
mailing = 1
Else
MsgBox Résultat & (" / Aucuns mails à envoyer")
End If

End Sub

Je trouve - 28. alors que je devrais trouver -1
Je ne comprends vraiment pas. Pouvez-vous m'aidez.


J'espère avoir était assez précis. Sinon n'hésite pas.

merci a vous
Bonne continuation

[LedZeppII]

Bonsoir,

en vb #7/6/2008# est le 6 juillet 2008.
Les dates sont au format mois/jour/année.

Essaie

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Fin_formation = #6/7/2008#
' ou
Fin_formation = DateSerial(2008, 6, 7)

A+

[csilas]

merci pour ta

[csilas]

merci pour ta réponse.
mais j'ai trouvé, il suffisait de faire :

Dim chaine As Date
chaine = "30 / 5 / 2008"

Résultat = DateDiff("d", chaine, Date)
If Résultat >= 3 And mailing = 0 Then
MsgBox Résultat & (" / Mails envoyés")
mailing = 1
Else
MsgBox Résultat & (" / Aucuns mails à envoyer")
End If

End Sub