Discussion :

[yamino]

Bonjour à tous,

Je pense que dans Windows (7 et supérieur) il n'est pas possible de définir un programme par défaut pour 1 fichier en particulier (je dis bien un fichier un particulier et pas pour un type de fichier)
J'ai donc besoin d'ouvrir un seul fichier PDF avec le navigateur défini par défaut (Edge, FF, Chrome, ...), les autres PDF s'ouvriront normalement avec la visionneuse par défaut (Adobe, Foxit, ...)
Est-ce possible ?
Le PDF est stocké dans un répertoire (C:\Test.pdf par exemple)

Merci pour votre aide.

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
8
Function executeshell(command)
Dim WSH,Result
Set WSH = CreateObject("Wscript.shell")
Result= WSH.Run(Command,0,True)
Set WSH= nothing
end Function
 
Call executeshell("C:\MesProgs\faqvb.pdf")

en changeant le chemin du fichier PDF bien sûr.

[yamino]

Hello,

Merci pour ton aide, je viens de tester mais il ouvre toujours le PDF dans l'appli par défaut (Foxit dans mon cas)
J'ai utilisé cette méthode qui va lire dans la base de registre le chemin du navigateur par défaut :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim WshShell
Dim WebDefault
Dim Ws,strExePath,strURL
 
Set WshShell = WScript.CreateObject("WScript.Shell") 
'Lecture de la base de registre pour détecter le navigateur par défaut
WebDefault = WshShell.RegRead ("HKCR\http\shell\open\command\")
'Extraction du programme par défaut et extration du chemin
strExePath = Mid(WebDefault, InStr(1, WebDefault, chr(34)) +1 , InStr(2, WebDefault, chr(34)) - 2)
strURL = "c:\Test.pdf"
'Exécution du programme
Set Ws = CreateObject("WScript.Shell")
Ws.Run Chr(34) & strExePath & Chr(34) & " " & strURL

Ca a l'air de fonctionner (sur mon pc, il faut que je teste sur d'autres )