Discussion :

[subzero25]

Bonjour,

J'ai un petit soucis pour la retranscription de mon code vba en vbs. Sa m'affiche cette erreur:



Voici le code que je veux retranscrire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Function JOURPOUS(j As Date, PlusMoins As Integer, jsem As VbDayOfWeek)
 JOURPOUS = DateAdd("ww", PlusMoins, j - (Weekday(j)) + jsem)
End Function
 
Sub Exemples_Utilisation()
'lundi et vendredi précédents aujourd'hui
 j1 = JOURPOUS(Date, -1, vbMonday)
 j2 = JOURPOUS(Date, -1, vbFriday)
 MsgBox j1
 MsgBox j2
'lundi et vendredi suivants aujourd'hui
 j3 = JOURPOUS(Date, 1, vbMonday)
 j4 = JOURPOUS(Date, 1, vbFriday)
 MsgBox j3
 MsgBox j4
End Sub

Quelqu'un aurait une idée de l'erreur ?
Merci