Discussion :

[Bigasse]

Je cherche un script pour ouvrir un fichier pdf.
Quelqu'un peut m'aider?

[Overcrash]

Bonjour, merci, s'il te plait ...

Tu peux preciser, tu veux que l'on te donne un script tout fait ? Si c'est le cas tu n'es pas sur le bon forum ...

[Bigasse]

Ceci est le code que j'utilise pour ouvrir un document Excel.

Code :

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

1
2
3
4
5
FileName = "D: \ bonjour.xls"
AppName = "Microsoft Excel"
Set ExcelObj = CreateObject("Excel.Application") 
Set ExcelObj = GetObject(, "Excel.Application")
Set ExcelWb = ExcelObj.Workbooks.Open(FileName)

Quelle modification je dois faire pour ouvrir un document PDF?

[Toulousaing]

Bon, c'est ma première contribution ici, alors je fais une exception. Un forum n'est pas un sous-traitant qui produit des scripts à la demande, mais un endroit ou des gens de bonne volonté aident ceux qui peinent. Si l'on ne montre pas que l'on a peiné, on n'a pas de réponse...

Bref, voici ma meilleure proposition. Vu que j'ai commencé le VBS il y a moins d'une semaine, je demande l'indulgence de ceux qui savent

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
19
20
21
If Wscript.Arguments.Count=0 Then
   wscript.stdout.write "Enter .pdf name <RET>=end: "
   strFile = wscript.stdin.readLine
   if strFile = "" then wscript.quit 0
else
   strFile = Wscript.Arguments(0)
end if
Set fso=CreateObject("Scripting.FileSystemObject")
on error resume next
Set infile = fso.GetFile(strFile)
if not fso.FileExists(inFile) then
   wscript.echo "File '" & strFile & "' not found"
   wscript.quit
else
   wscript.echo "Opening file " & strFile
end if
on error goto 0
ShellCmd = """C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"" " & inFile
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run(ShellCmd, 1, true)
wscript.quit

J'ai fait ça vite fait, mais il y a surement mieux.
Regarde dans la doc (surtout le fichier Script56.chm) pour des explications.
Le doublage des guillemets est obligatoire à cause de l'espace entre "Program" et "Files" et entre "Reader" et "9.0".
Comments welcome.

[l_autodidacte]

Salut

Une petite remarque : Les flux stdOut, stdIn et stdErr ne sont accessibles qu'avec Cscript.exe.
Pour cette raison, on dois exécuter le fichier vbs ci-dessus par clic droit sur le fichier et choisir le menu contextuel Ouvrir avec l'invite de commandes puis taper le chemin complet du fichier à ouvrir.

Mais une autre alternative serait de modifier le script ainsi :

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
strFile=InputBox("Taper le nom du fichier pdf  à ouvrir","Ouvrir un fichier","*.pdf")
if strFile="" then Wscript.quit 0    
Set fso=CreateObject("Scripting.FileSystemObject")
on error resume next
Set infile = fso.GetFile(strFile)
if not fso.FileExists(inFile) then
   wscript.echo "File '" & strFile & "' not found"
   wscript.quit
else
   wscript.echo "Opening file " & strFile
end if
on error goto 0
ShellCmd = """C:\Program Files\Adobe\Acrobat 9.0\Reader\AcroRd32.exe"" " & inFile ' Il faut modifier en fonction de la version et de l'emplacement du programme
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run(ShellCmd, 1, true)
wscript.quit

[Toulousaing]

Alors effectivement, comme je ne travaille que sur des procédures d'exploitation appelées depuis la console, j'utilise systématiquement

Code :

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

C:\>cscript /nologo myScript.vbs

(sans logo)
ou

Code :

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

1
2
C:\>Wscript //h:cscript
C:\>myScript

(avec logo)

d'où mon oubli de préciser cela. Tu as bien fait.
Si je comprends bien, mon premier TP est à peu près correct ?
Tu me donnes combien ?

[l_autodidacte]

Avec cette correction, disons 9,5/10 (car on doit tenir compte du post précédent)