Retranscription vba en vbs

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

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

Pièce jointe 380644

Voici le code que je veux retranscrire :

Code:

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

15/05/2018, 14h11
omen999

bonjour,

Code:

Private Function JOURPOUS(j, PlusMoins, jsem)

en vbscript, les variables sont obligatoirement typées VARIANT
15/05/2018, 14h20
subzero25

Tres bien mais il doit certainement avoir un autre soucis puisqu'a l'éxecution il n'y a aucun résultat. :?
15/05/2018, 17h05
omen999

si ton script se limite à ce code c'est normal de ne rien voir
puisque le code contenu dans la procédure Exemples_Utilisation
ne sera pas exécuté.

il faudrait revoir les bases... :calim2:
15/05/2018, 21h22
ProgElecT

:coucou:omen999

:salut:@subzero25
Ton code ne représente que des procédures à utiliser par ton programme, et tu ne les utilises pas ;).

Pour avoir un affichage il faut que tu joues la procédure Exemples_Utilisation(), donc mettre ce terme en début ou fin du code, avant le Private Function ...... ou après le End Sub
16/05/2018, 07h51
subzero25

Suis je bête oui pardon j'ai oublier de lancer la procédure. :ptdr:

Je vous remercie pour votre aide. :zoubi: