Ouverture navigateur par défaut pour un PDF

Version imprimable

20/10/2021, 14h48
yamino

Ouverture navigateur par défaut pour un PDF

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.

Salut

Code:

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.

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:

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 :D)