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

[omen999]

bonjour,

Code :

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

Private Function JOURPOUS(j, PlusMoins, jsem)

en vbscript, les variables sont obligatoirement typées VARIANT

[subzero25]

Tres bien mais il doit certainement avoir un autre soucis puisqu'a l'éxecution il n'y a aucun résultat.

[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...

[ProgElecT]

omen999

@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

[subzero25]

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

Je vous remercie pour votre aide.