petit programme en vbs Résolu/Fermé

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