Discussion :

[zakake]

Bonjour à tous,

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

Code :

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

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.

[hackoofr]

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

Code :

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

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

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

[hackoofr]

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 ?

[l_autodidacte]

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

[zakake]

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 :

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

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 :

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 ?

[ericlm128]

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

Code vbs :

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

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

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

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

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

se poursuit aussi !!!!

Donc en gros j'ai le même script qui est exécuté 2 fois !!

[ProgElecT]

Salut

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

Code :

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

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

[l_autodidacte]

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

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