Discussion :

[D-ude]

bonjour

j'ai une petite application qui effectue diverses taches répétitives
c'est juste un .bat qui a été compilé

à la fin, il ouvre une msgbox (vbs)

j'ai fait des recherches sur les boutons des msgbox, mais ça n'a pas donné grand chose

je voudrais que la boite offre 3 boutons:
un bouton oui qui ouvrirait un fichier log dans notepad (un simple .txt)
un bouton non qui se contente de fermer la boite
un bouton aide qui ouvre non pas un fichier .hlp, mais un fichier html dans le navigateur par défaut

j'en suis là:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Msg, Style, Title, Help, Response, MyString
Msg = "La tâche a bien été effectuée. Voulez vous voir le fichier log?"
Style = vbYesNo + vbInformation + vbDefaultButton2
Title = "Information"
Help = "DEMO.HLP"
Response = MsgBox(Msg, Style, Title, Help)
If Response = vbYes Then
   MyString = "Yes"
wshShell.Run ("C:\log.txt")   << ne marche pas
Else
   MyString = "No"
End If

est-ce possible?

[omen999]

bonjour,

Code :

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

wshShell.Run ("C:\log.txt")   << ne marche pas

la variable objet wshShell a été instanciée ?
l'extension .txt est associée à notepad ?

[D-ude]

bonjour

les .txt sont bien associés à notepad

par contre la variable objet wshShell a été instanciée... ça je ne sais même pas ce que ça veut dire

j'ai posté l'intégralité de mon script, donc je suppose que non

mais je ne sais pas comment le faire...

[omen999]

Par contre la variable objet wshShell a été instanciée... ça je ne sais même pas ce que ça veut dire

quelque chose comme ça:

Code :

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

set WshShell = WScript.CreateObject("WScript.Shell")

[D-ude]

re bonjour omen999, et merci de t'intéresser à mon cas

cette ligne telle qu'elle ne marche pas, mais grâce aux indications qu'elle m'a données j'ai pu faire marcher mon binz en déclarant la variable comme ceci:

Code :

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

1
2
3
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application")
shell.Open "C:\file.txt"

voilà où en est mon code:

Code :

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

1
2
3
4
5
6
7
box = msgbox ("La tâche a été effectuée." & Chr(13) & "Voulez vous voir le fichier log? (si vide = 0 erreurs)" , vbYesNo+vbHelp+vbInformation+vbSystemModal , "Information")    
if box = vbyes then
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application")
shell.Open "C:\Program Files\application\log.txt"
elseif box = vbNo then
end if

question:

commande vbHelp
elle permet d'afficher un bouton "aide" dans une boite de dialogue en vbscript et lorsqu'on clique sur le bouton, elle lance un fichier au format *.hlp

mon binz a une page html d'aide...
et j'avoue que j'ai déjà assez à faire pour pas vraiment avoir envie de m'en fabriquer un, surtout qu'il serait pas si petit que ça

donc j'aimerais afficher le bouton d'aide, mais lui assigner une autre fonction
celle là, pour etre précis:

Code :

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

1
2
3
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application")
shell.Open "C:\Program Files\application\Help_index.html"

pas moyen de trouver comment faire ça...


en fait, la commande msgbox en vbscript est completement basique et n'offre que très peu d'options...

si quelqu'un savait m'indiquer un moyen de faire une boite de dialogue avec un language plus complet, je serais preneur

merci

[omen999]

si quelqu'un savait m'indiquer un moyen de faire une boite de dialogue avec un language plus complet, je serais preneur

facile : http://www.developpez.net/forums/sho...d.php?t=214904

(vb6 pro requis pour compiler car je n'ai pas mis la dll dans le zip)

[D-ude]

arf!

très très intéressant tout ça... mais je n'ai pas VB6 pro

est-ce qu'il y a un moyen d'utiliser ça quand même?

[omen999]

est-ce qu'il y a un moyen d'utiliser ça quand même?

oui, avec la dll :

[D-ude]

salut

je te remercie: ça me servira pas sur ce coup là parce qu'au final j'ai fait un .hta ce qui m'a permis de faire tout ce que je voulais facilement

mais ça me servira forcément très bientôt