Discussion :

[sergeh]

Bonjour,

Voici mon code de base :

Code :

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

1
2
@echo off
IF EXIST "MANUELS\toto.pdf" "MANUELS\toto.pdf"

Ça marche bien sauf qu'il reste la fenêtre DOS tant que je n'ai pas refermer mon pdf. J'aimerais plutôt la faire disparaître tout de suite.
Je souhaite donc ouvrir mon fichier pdf dans un process séparé pour fermer la fenêtre DOS :

Code :

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

1
2
3
@echo off
IF EXIST "MANUELS\toto.pdf" start "MANUELS\toto.pdf"
EXIT

Mais là, ça m'ouvre juste une fenêtre DOS ...
J'ai essayé avec "start /MIN", "start /SEPARATE"; j'ai aussi essayé de rajouter "cmd "MANUEL...." etc sans plus de succès.

Je m'y connais plus en shell qu'en batch ... Du coup je viens requérir votre aide. Ça doit pas être grand chose, mais là je n'y arrive pas ...

Merci par avance pour vos réponse !!

[hackoofr]

Je vous propose une solution à tester chez vous mais en VBScript, donc il faut copier et coller ce code dans votre Notepad et enregistrer sous le nom par exemple StartPDF.vbs

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
22
23
24
25
'Un exemple qui vous montre comment exécuter un programme qui se trouve dans un chemin avec des espaces
Call Execution("C:\Documents and Settings\Administrateur\Mes documents\","NomduFichier.pdf")

'Fonction qui a deux paramètres à passer : le chemin et le nom du fichier à exécuter
Function Execution(Chemin,Fichier)
	Dim objShell,FSO
	Set FSO = CreateObject("Scripting.FileSystemObject")
	If Len(Chemin) <= "3" Then
		Command = "Cmd /c Start "& Chemin & Fichier &"" 
	else
		Command = "Cmd /c CD "& dblquote(Chemin) &" & Start "& Fichier &""
	end If
	If FSO.FileExists(Chemin & Fichier) Then 'Test de l'existence du fichier
		Set objShell = CreateObject("WScript.Shell")
		Exec = objShell.Run(Command,0,False)'Le paramètre 0 pour cacher la console
	Else
		MsgBox "Le fichier " &dblquote(Chemin & Fichier)&" n'existe pas",16,"le fichier " &dblquote(Chemin & Fichier)&" n'existe pas"
		wscript.Quit
	End if
End Function

'Fonction pour ajouter des guillemets au chemin pour éviter les problèmes des espaces de la console DOS
Function dblquote(strIn)
	dblquote = Chr(34) & strIn & Chr(34)
End Function

Bonne Chance

[hackoofr]

Un exemple d’utilisation : Lancer FireFox.exe

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
22
23
24
25
'Un exemple qui vous montre comment exécuter FireFox.exe qui se trouve dans un chemin avec des espaces (C:\Program Files\Mozilla Firefox\)
Call Execution("C:\Program Files\Mozilla Firefox\","firefox.exe")

'Fonction qui a deux paramètres à passer : le chemin et le nom du fichier à exécuter
Function Execution(Chemin,Fichier)
    Dim objShell,FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Len(Chemin) <= "3" Then
        Command = "Cmd /c Start "& Chemin & Fichier &"" 
    else
        Command = "Cmd /c CD "& dblquote(Chemin) &" & Start "& Fichier &""
    end If
    If FSO.FileExists(Chemin & Fichier) Then 'Test de l'existence du fichier
        Set objShell = CreateObject("WScript.Shell")
        Exec = objShell.Run(Command,0,False)'Le paramètre 0 pour cacher la console
    Else
        MsgBox "Le fichier " &dblquote(Chemin & Fichier)&" n'existe pas",16,"le fichier " &dblquote(Chemin & Fichier)&" n'existe pas"
        wscript.Quit
    End if
End Function

'Fonction pour ajouter des guillemets au chemin pour éviter les problèmes des espaces de la console DOS
Function dblquote(strIn)
    dblquote = Chr(34) & strIn & Chr(34)
End Function

[sachadee]

Salut sergeh

Il vous faut spécifier un programme pour ouvrir votre fichier
par exemple Adobe reader.

start attends une application

start path\programme.exe path\mon_fichier.pdf

Code :

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

start C:\Progra~1\Adobe\Reader~1.0\Reader\AcroRd32.exe c:\MANUELS\toto.pdf

Attention d'utiliser les noms courts !

Amicalement