Discussion :

[Alex65351]

Bonjour a tous.

Je cherche a faire un script .vbs qui compare dans une base de donnée (située dans le C:/Contrats.mdb)la date fin a la date d'aujourd'hui. Dès que la différence entre la date aujourd'hui et la date fin = 90 jours envois d'un mail a toto@XXYY.com.

Le script pour l'envoi du mail semble fonctionnait.

Je ne suis pas un pro de la programmation.
Merci pour vos conseil.

Alexandre.

[pc75]

Bonjour,

Pour la différence entre deux dates, c'est la fonction DateDiff()

[Alex65351]

Bonjour,

Pour la différence entre deux dates, c'est la fonction DateDiff()

Pour se connecter a la base de données?

[Alex65351]

Code :

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

1
2
3
4
5
6
7
dim date_fin
dim d
date_fin = "2/29/2009"
DateDiff(d,Date(),date_fin)
if d<=90 then
msgbox"il reste"
end if

J'ai fais ce script mais il ne fonctionne pas, je n'arrive pas à trouver le problème.

Comment je peux faire pour me connecter a la base de données, pour aller récupérer la date_fin?
Merci.

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
Dim date_fin
Dim Differance
date_fin = "30/03/2009"
Differance = DateDiff("d", Date, date_fin)
If Differance <= 90 Then
MsgBox "il reste " & Differance & " jour(s)"
End If

date_fin = "2/29/2009", en 2009, il n'y a que 28 jours en février

[Alex65351]

ok merci