Bonjour

J'aimerais écrire la date du jour donc :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim ActualDay, MyDay, MyMonth
 
MyDay = Day(Now)
MyMonth = Month(Now)
 
If Len(MyDay) = 1 Then MyDay = "0" & MyDay
If Len(MyMonth) = 1 Then MyMonth = "0" & MyMonth
ActualDay = MyDay & "." & MyMonth & "." & Year(Now)
ensuite j’écris la date

Code : Sélectionner tout - Visualiser dans une fenêtre à part
session.findById("wnd[0]/usr/ctxtDATUV").text = ActualDay
ceci fonctionne

maintenant j'aimerais écrire la date avec 7 jours de moins ou plus de la date du jour ex :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActualDay = ActualDay-7
Est ce possible et avez vous une idée

Par avance Merci

Yannis