petit programme en vbs Résolu

Question

Bonjour à tous

Tout d'abord je suis débutant en programmation VBS et j'essaie de réaliser une commande.
je souhaite réaliser un programme pour anticiper des RDV.
je vous joint le type de programme mais je ne sais pas si seulement c'est réalisable dans l'ensemble il fonctionne et individuellement aussi.

Ils sont tous les deux identique du coté fonctionnement, j'ai simplement renommé les variables pour éviter toute confusion. Pour le faire fonctionner il faut l'enregistrer (.vbs)

Le problème que je n'arrive pas a résoudre c'est : comment l'envoyer a la ligne 16 après validation de la condition if « ligne 7 ».

Le fait de mettre quit stop la lecture et le second programme ne peut pas s'exécuter.
Le problème se produit quand la date dt1 a passé le jour J.

Merci de m'aider si quelqu'un a une solution pour exécuter cette commande.

Cordialement

Jean Pierre

'On Error Resume Next
'****************Déclaration des variable****************'
1 Dim dt1, dt2, tp
2 Dim strnom
3dt1 = #04-15-2013#
4tp = #12:15#
5strnom = " Dr Hussein"
6dt2 = DateDiff("d",dt1,Date())
7if (dt2 > 0) or ( dt2< -4) then WScript.quit '(ici je veux suprime) quit que je remplace par (va a la ligne 16)
8if (dt2 <> 0) then
9msgbox "Vous avez RDV le: " & dt1 & " à " & tp & " dans " & dt2 & "jours" & " avec le " & 10strnom ,vbOkOnly,"ici le tire"
11else
12msgbox "vous avez RDV aujourd'hui" & " à " & tp & " avec le " & strnom ,vbOkOnly,"ici 13le tire"
14end if
15'*****************Second programme************************'
16'On Error Resume Next
17Dim dt11, dt22, tp2
18Dim strnom2
19dt11 = #05-19-2013#
20tp2 = #12:15#
21strnom2 = " conseil syndical"
22dt22 = DateDiff("d",dt1,Date())
23if (dt22 > 0) or ( dt22< -4) then WScript.quit
24if (dt22 <> 0) then
25msgbox "Vous avez RDV le: " & dt11 & " à " & tp2 & " dans " & dt22 & "jours" & " avec 26le " & strnom2 ,vbOkOnly,"ici le tire"
27else
28msgbox "vous avez RDV aujourd'hui" & " à " & tp2 & " avec le " & strnom2 ,vbOkOnly,"ici le tire"
29end if

f894009 · Answer

Bonjour,

un exemple de code:

'On Error Resume Next
'****************Déclaration des variable****************'
Dim dt1, dt2, tp
Dim strnom
dt1 = #04-15-2013#
tp = #12:15#
strnom = " Dr Hussein"
dt2 = DateDiff("d",dt1,Date())
if (dt2 > 0) or ( dt2< -4) Then
	Call suite		'WScript.quit '(ici je veux suprime) quit que je remplace par (va a la ligne 16)
End If
if (dt2 <> 0) then
	msgbox "Vous avez RDV le: " & dt1 & " à " & tp & " dans " & dt2 & "jours" & " avec le " & strnom ,vbOkOnly,"ici le tire"
else
	msgbox "vous avez RDV aujourd'hui" & " à " & tp & " avec le " & strnom ,vbOkOnly,"ici 13le tire"
end If
WScript.quit
'*****************Second programme************************'
Sub suite
	'On Error Resume Next
	Dim dt11, dt22, tp2
	Dim strnom2
	dt11 = #05-19-2013#
	tp2 = #12:15#
	strnom2 = " conseil syndical"
	dt22 = DateDiff("d",dt1,Date())
	if (dt22 > 0) or ( dt22< -4) then Exit Sub
	if (dt22 <> 0) then
		msgbox "Vous avez RDV le: " & dt11 & " à " & tp2 & " dans " & dt22 & "jours" & " avec 26le " & strnom2 ,vbOkOnly,"ici le tire"
	else
		msgbox "vous avez RDV aujourd'hui" & " à " & tp2 & " avec le " & strnom2 ,vbOkOnly,"ici le tire"
	end If
End Sub

f894009 · Answer

Bonjour,

pour pallier momentanément a ce soucis, inserez wscript.quit apres call suite.
Par contre je ne vois pas comment vous trouvez un nombre negatif de jours avec votre formule sur les dates anterieures a aujourd'hui: dt2 = DateDiff("d",dt1,Date()) , la date d'aujourd'hui etant toujours superieure a hier. dt2 = DateDiff("d",Date(),dt1) serait plus appropriee et le nombre de jours pour les dates posterieures sera positif.

if (dt2 > 0) or ( dt2< -4) Then: : -13 est < a -4

if (dt2 <> 0) then: -13 et 40 sont <> de 0, c'est pour cela que vous avez la deuxieme boite a message

il faut repenser les tests sur les ecarts de dates.

questions: les dates de RDV proviennent d'ou (vous ne les entrez pas a la main en dur dans le programme!!!) , cela aiderait a vous aidez

A+

Petit programme en vbs

2 réponses

Discussions similaires

Newsletters