Ré-exécution d'un script à partir de la 1ère ligne

Version imprimable

20/12/2016, 16h33
zakake

Ré-exécution d'un script à partir de la 1ère ligne

Bonjour à tous,

Dans mon script VBS, j'ai une MsgBox de cette forme :

Code:

Message = MsgBox("Texte".", vbRetryCancel + vbExclamation, "Titre")

Et je voudrais que, si l'opérateur clique sur "Recommencer" (ie si Message = vbRetry), le script se ré-exécute à partir de la 1ère ligne. Comment faire ?

Merci d'avance.

:salut:
ça dépend ce que vous voulez faire exactement :roll:
Voici un petit exemple :

Code:

1
2
3
4
5
6
7
8
9
10
Message = MsgBox("Texte",vbRetryCancel+vbExclamation,"Titre")
If Message = vbRetry Then 
    Call Main()
Else
    wscript.Quit()
end if
 
Sub Main()
    wscript.echo "execution du script a nouveau"
End Sub

20/12/2016, 17h06
zakake

Merci pour ta réponse hackoofr.

Mais le but n'est pas d'afficher "execution du script a nouveau", je voudrais que le script stoppe son exécution et se relance automatiquement.
20/12/2016, 17h25
hackoofr

Citation:

Envoyé par zakake

Merci pour ta réponse hackoofr.

Mais le but n'est pas d'afficher "execution du script a nouveau", je voudrais que le script stoppe son exécution et se relance automatiquement.

Dans ce cas pouvez-vous nous poster le script en entier ?
20/12/2016, 19h15
l_autodidacte

Citation:

.... je voudrais que le script stoppe son exécution et se relance automatiquement.

Dans ce cas, il faudrait ajouter une temporisation pour l'arrêt et pour le relancement du script; Wscript restant en cours d'exécution(au risque de charger la mémoire et le CPU)

Merci pour vos réponses !

En gros mon script demande à l'opérateur de sélectionner une plage de dates, et selon la plage de dates renseignée, il va vérifier si un certain fichier existe. Et si ce fichier n'existe pas, il avertit l'opérateur qu'il faut relancer le script en changeant la plage de dates. Je voudrais justement automatiser cette dernière action : au lieu d'afficher un message à l'opérateur disant de relancer le script et changer la plage de dates, je veux que le script avertisse l'opérateur via un message et ré-exécute automatiquement le script. L'opérateur sera alors de nouveau dans l'obligation de sélectionner une nouvelle plage de dates.

Ça donne à peu près ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 DateRange = InputBox("Renseignez la plage de dates :", "Plage de dates") Set System = CreateObject("Scripting.FileSystemObject") if DateRange <> CurrentWeek then 'CurrentWeek est aussi une plage de dates if not System.FolderExists("chemin d'accès") then Message = MsgBox "Le fichier n'existe pas. Selectionnez une autre plage de dates", vbRetryCancel + vbExclamation, "Fichier inexistant" if Message = vbRetry then ''''Ré-exécuter le script end if end if end if
@l_autodidacte :

Citation:

Dans ce cas, il faudrait ajouter une temporisation pour l'arrêt et pour le relancement du script; Wscript restant en cours d'exécution(au risque de charger la mémoire et le CPU)

Peux-tu développer un peu stp ?

21/12/2016, 11h56
ericlm128

Je répond à la question de façon simpliste

Code:

If (Msgbox("Relancer le script ?", vbYesNo, "test") = vbYes) Then CreateObject("WScript.Shell").Run(WScript.ScriptFullName)
21/12/2016, 15h16
zakake

Merciii ericlm128 !! C'est exactement ce que je cherchais !!

JEDIT :

J'ai crié victoire trop vite... :/

Ce n'est pas exactement ce qu'il me faut puisque le script se relance bien à la 1ère ligne (comme je voulais), mais par contre l'exécution après la ligne de code :

Code:

CreateObject("WScript.Shell").Run(WScript.ScriptFullName)

se poursuit aussi !!!!

Donc en gros j'ai le même script qui est exécuté 2 fois !!
21/12/2016, 17h29
ProgElecT

Salut

Citation:

Envoyé par Aide en ligne pour VBScript

Quit, méthode
Force l'arrêt de l'exécution du script à tout moment.

Code:

If (Msgbox("Relancer le script ?", vbYesNo, "test") = vbYes) Then CreateObject("WScript.Shell").Run(WScript.ScriptFullName): WScript.Quit

Si j'ai bien compris, tu veux quelque chose comme ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DateRange = InputBox("Renseignez la plage de dates :", "Plage de dates")
If DateRange = "" Then Wscript.Quit 0
CheminFichier = "C:\Temp\Test.txt" ' à modifier
CurrentWeek = "15/08/2016:20/10/2016" ' un exemple que j'ai utilisé
Set fso = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("Wscript.Shell")
' A la 2ème exécution, il y a un message d'erreur : fichier introuvable => car il est ouvert par Wscript
' J'ai donc opté pour un fichier temporaire : tmpName
tmpName = WS.ExpandEnvironmentStrings("%Temp%") & "\" & fso.GetBaseName(fso.GetTempName) & ".vbs"
if DateRange <> CurrentWeek then  'CurrentWeek est aussi une plage de dates
    if not fso.FileExists(CheminFichier) then ' de quel fichier s'agit-il ici ?  que contient-il ? on y cherche une date ?....
        Message = MsgBox("Le fichier n'existe pas. Selectionnez une autre plage de dates", vbRetryCancel + vbExclamation, "Fichier inexistant")
        if Message = vbRetry then
            fso.CopyFile Wscript.ScriptFullName, tmpName
            WS.Run tmpName
        end if             
    end if
end if