Discussion :

[Yoloswagbifle]

Bonjour ! Je dois développer un programme pour une petite entreprise, mais ça ne fonctionne pas :'( pouvez-vous me dire ce qui ne vas pas ?

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
18
19
20
21
22
23
24
25
26
27
28
dim date
do
	date = weekday(date)
 
	if date = 7 then
		if Hour(Now)=17 then
			if Minute(now)=21 then
				if Seconde(Now)=1 then
					Set Sh = CreateObject("WScript.Shell")
					Sh.run ".\18.bat"
					Set Sh = Nothing
				end if
			end if
		end if
	end if
 
	if date < 7 then 
		if Hour(Now)=14 then
			if Minute(now)=21 then
				if Seconde(Now)=0 then
					Set Sh = CreateObject("WScript.Shell")
					Sh.run ".\12.bat"									
					Set Sh = Nothing
				end if
			end if
		end if
	end if
loop

Par ailleur, mon premier était celui-ci, même question, qu'est-ce qui cloche ?

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
dim date
date = weekday(date)
 
if date = 7 then
	call dimanche
	else
	call semaine
end if
 
fonction semaine
do
	if Hour(Now)=11 then
		if Minute(now)=50 then
			if Seconde(Now)=1 then
				Set Sh = CreateObject("WScript.Shell")
				Sh.run ".\12.bat"
				Set Sh = Nothing
				exit loop
			end if
		end if
	end if
 
loop
end fonction
 
do	
	if Hour(Now)=18 then
		if Minute(now)=50 then
			if Seconde(Now)=1 then
				Set Sh = CreateObject("WScript.Shell")
				Sh.run ".\19.bat"
				Set Sh = Nothing
				exit loop
			end if
		end if
	end if
loop
 
fonction dimanche
 
do	
	if Hour(Now)=17 then
		if Minute(now)=50 then
			if Seconde(Now)=1 then
				Set Sh = CreateObject("WScript.Shell")
				Sh.run ".\18.bat"
				Set Sh = Nothing
				exit loop
			end if
		end if
	end if
loop
end fonction

Merci :*

[l_autodidacte]

Bonjour et Bienvenu sur DVP

A première vue, on ne doit pas déclarer une variable de même nom qu'une procédure(Sub), une fonction ou une constante propre au langage utilisé.
Par exemple au lieu de déclarer une variable : Dim Date, il est plus judicieux de la déclarer Dim DT évitant ainsi le mélange entre variable et fonction. D'ailleurs, tu vois que la couleur du mot Date est différente de celle d'un texte normal.

D'autre part, je ne vois pas de fonction s'intitulant semaine ni dimanche parce que tout simplement tu les as mises en commentaire.
Corrige ces inadéquations et essaie de nouveau puis reviens donner le résultat du test.

[Yoloswagbifle]

Merci, je me pencherais plus sur le premier problème du premier code, et je tient à préciser que j'ai déjà tester et déclarer avec Date ne pose pas de souci ( mais merci du conseil je modifirais cela )

[ProgElecT]

Salut
Ligne 10 et 39: fonction NomDeLaFonction, ligne 24 et 53: End fonction ,

Code :

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

1
2
3
4
5
6
7
Function Semaine
'le code
End Function
'--------------------------------------------------
Function dimanche
'le code
End Function

[l_autodidacte]

ProgElecT
Bien vu et merci.
En fait, je n'ai fait que diagonaliser le code sans faire attention à l'orthographe (Fonction et Function).

@ Yoloswagbifle
Les 2 fonctions semaine et dimanche sont en fait des boucles infinies.
Le script tel qu'il est, tournera sans arrêt jusqu'à la fermeture de la session, le redémarrage ou l'arrêt du PC.
Est-ce le but du script , un oubli ou alors une condition d'arrêt que tu n'as pas pu implémenter ?

[Yoloswagbifle]

Ahah l'erreur nulle pour Function, mais étrange qu'il ne m'est pas fait d'erreur alors :/ et oui le but de mon script est de diffuser un message à une heure précise, et l'heure change le dimanche , j'ai essayé Schtasks pour le dos , et ça n'as pas fonctionner ...
Merci de vos conseils pour l'instant mais pour le premier script, sans "Function", il est plus simple mais ne fonctionne pas