> Tous les forums > Forum Autres langages
 Script pour lancer un programme en VBS
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Chri8Pa
  Posté le 30/06/2012 @ 10:19 
Aller en bas de la page 
Petit astucien

Bonjour

Je suis en train d’écrire un script en VBS pour lancer 2 programmes :

1) Notepad++ (pas de problème)

2) Un fichier Excel

- Pour Notepad++

Je mets :

myPrograms = Array( _

"C:\Progra~1\notepad++\notepad++", _

"" )

- Pour Excel (Classeur1)

Je mets :

myPrograms = Array( _

"C:\Documents and Settings\MonNom\Mes documents\Office\Excel\Classeur1.xlsm", _

"" )

Mais cela ne fonctionne pas

J’ai essayé bien d’autres scripts, mais en vain !

Est-ce quelqu’un peut m’aider

Merci



Modifié par Chri8Pa le 30/06/2012 10:20
Publicité
breizhbugs
 Posté le 30/06/2012 à 11:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Et si tu mettais le chemin d'excel.exe?

Chri8Pa
 Posté le 30/06/2012 à 11:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

J'avais essayé

J'avais mis :

"c:\Progra~1\Micros~1\Office12\Excel C:\Documents and Settings\Christian\Mes documents\Office\Excel\Vente\Ventes.xlsm", _

Cela ne fonctionne pas

Merci pour l'aide

A+

breizhbugs
 Posté le 01/07/2012 à 00:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

ca correspond a quelle fonction ton: "chemin",_

Donne le code complet.



Modifié par breizhbugs le 01/07/2012 00:10
Chri8Pa
 Posté le 01/07/2012 à 00:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir

Le chemin complet pour Excel est

C:\Program Files\Microsoft Office\Office12\Excel

Le chemin du fichier est

C:\Documents and Settings\Christian\Mes documents\Office\Excel\Vente\Ventes.xlsm

A+

yves.vaissiere
 Posté le 01/07/2012 à 18:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour,

et ...

Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run """C:Program Files\notepad++\notepad++"""
Shell.Run """C:\Documents and Settings\Christian\Mes documents\Office\Excel\Vente\Ventes.xlsm"""

... ?

(si le vbs ne contient que ces trois lignes, un bat serait plus simple)



Modifié par yves.vaissiere le 01/07/2012 18:07
Chri8Pa
 Posté le 01/07/2012 à 23:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Merci Yves

Non ce script est bien plus long, il n'est pas de moi

Je l'ai récupéré sur la toile

Il va me servir pour lancer plusieurs petits programmes, ainsi que Excel et Firefox au démarage

Je veux les lancer après un certain temps (3 à 4 minutes environ) puis les uns après les autres à une cadence à définir

Il fonctionne très bien pour Notepad++

Mais pour Excel, je butte

Je viens d'essayer avec ton script, mais cela ne va pas non plus .

Je mets le script ci dessous

' delay startup of applications, usefull for resident apps which start with windows
' this script is public domain ! Use it, modify it, do what you want with it

' list of applications (modify with your programs)
myPrograms = Array( _
"%SystemRoot%\system32\notepad.exe", _
"%SystemRoot%\system32\calc.exe", _
"%SystemRoot%\system32\winmine.exe", _
"" )

' main startup delay in seconds (set your own delay)
iMainDelay = "120"

' delay between each program in seconds (set your own delay)
iIntermediateDelay = "15"

' Set shell object
Set WshShell = WScript.CreateObject("WScript.Shell" )

' wait the main delay
wScript.Sleep(iMainDelay * 1000)

' launch software
For Each Program In myPrograms
If Program <> "" Then
WshShell.Run(Program)
wScript.Sleep(iIntermediateDelay * 1000)
End If
Next

breizhbugs
 Posté le 02/07/2012 à 00:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien
Et comme ca:

list of applications (modify with your programs)
myPrograms = Array( _
"%SystemRoot%\system32\notepad.exe", _
"%SystemRoot%\system32\calc.exe", _
"%SystemRoot%\system32\winmine.exe", _
"%comspec% /K start C:\Documents and Settings\Christian\Mes documents\Office\Excel\Vente\Ventes.xlsm", _
"" )

' main startup delay in seconds (set your own delay)
iMainDelay = "120"

' delay between each program in seconds (set your own delay)
iIntermediateDelay = "15"

' Set shell object
Set WshShell = WScript.CreateObject("WScript.Shell" )

' wait the main delay
wScript.Sleep(iMainDelay * 1000)

' launch software
For Each Program In myPrograms
If Program <> "" Then
WshShell.Run(Program)
wScript.Sleep(iIntermediateDelay * 1000)
End If
Next


?


Modifié par breizhbugs le 02/07/2012 00:13
Chri8Pa
 Posté le 02/07/2012 à 01:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir

La commande semble bonne

C'est le chemin qui semble ne pouvoir lire

Si je mets un fichier excel dans c:\ c'est OK

Je pense que je devrais pouvoir y arriver en mettant les noms des dossiers sous 8 caractères avec le symbole "~1"

C'est ce que je fais, mais ce qui me problème c'est le répertoire "Mes documents"

il y a un espaces après "mes" et on peut pas écrire "Mes do~1"

et je me rapelle plus comment on fait dans ce cas là



Modifié par Chri8Pa le 02/07/2012 01:31
Publicité
yves.vaissiere
 Posté le 02/07/2012 à 07:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

As-tu copié-collé mon texte, avec les trois paires de guillemets pour chaque fichier ? (6 paires même pour chaque fichier, si on considère que les guillemets vont par 2, et même par 4 s'il doit y en avoir une paire entrante et une paire sortante ...)

Chri8Pa
 Posté le 02/07/2012 à 08:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Yves

Hier, j’avais bien fait un copié-collé de ton script à l’intérieur de mon script total

Mais cela ne fonctionnait pas.

Je ne me rappelle plus bien pourquoi, tant j’ai fait d’essais ?

J’y ai même passé une partie de la nuit, pour rien !! {#}

Heureusement, que tu viens de me renouvelez ton aide

Car je n’avais pas prêté attention à tes triples guillemets. {#}

Mon problème, vient en fait comme je le signalais hier soir des espaces contenues dans les noms de dossiers

« Mes documents » par exemple

Je n’ai même pas besoin de :

Shell.Run ou de %comspec% /K start ou de quoi que ce soit !

Il suffit juste de mettre :

"""C:\Documents and Settings\Christian\Mes documents\Office\Excel\Vente\Ventes.xlsm"""

A la place de

"C:\Documents and Settings\Christian\Mes documents\Office\Excel\Vente\Ventes.xlsm"

Ces triples guillemets solutionnent donc les problèmes des espaces dans les noms de dossiers

Maintenant peux tu me donner une petite explication sur ces triples guillemets, pourquoi trois paires ???

A+

yves.vaissiere
 Posté le 02/07/2012 à 19:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

J'ai pompé, n'y connaissant rien ; deux paires, effectivement, ça me semblerait plus logique ...

Chri8Pa
 Posté le 02/07/2012 à 23:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir

Eh bien pour qielqu'un qui n'y connaissait rien, tu m'a rendu un bien grand service {#}

J'avais songé à 2 groupes de guillemets, mais j'aurais pas trouvé un triple guillemets

Je trouverais peut-être l'explication plus tard

L'esentiel est là, cela fonctionne

Merci encore

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Aide pour un programme simple en C++
demande d'aide pour un petit script
Script bat pour éteindre des pc
commande dos pour lancer cmd en admin
Créer programme ou application pour tablette PC
conseil pour un script de diaporama
Script pour automatiser des operations sur firefox
Modifier programme pour rendre une tache auto
Cherche script pour uploader des photos
Programmé pour POCKET PC
Plus de sujets relatifs à Script pour lancer un programme en VBS
 > Tous les forums > Forum Autres langages