Bonsoir
Utilise la fonction API ShellExecute :
Dans un module ou dans la section Général-Déclarations de la feuille :
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Puis appel de la fonction par :
Dim Chemin As String, Fichier As String
Chemin = "C:\MonPath\"
Fichier = Chemin & "MonFichier.pdf"
ShellExecute Me.hWnd, "open", Fichier, vbNullString, Chemin, 1
(tu peux remplacer "open" par "print" pour imprimer)
-------------------------------
Réponse au message :
-------------------------------
> Bonjour,
>
> Beaucoup utilise pour ouvrir un PDF la commande SHELL mais elle a le désavantage qu'il faut connaître l'endroit du programme acrobat reader. Hors si je tape au niveau de la commande exécuter de windows le nom du programme d'acrobate reader celui-ci s'exécute automatiquement. Idem si je double clique sur un fichier avec l'extension PDF, celui-ci s'ouvre automatiquement.
>
> Bref, j'aimerai trouvé une solution de façon a pouvoir ouvrir un fichier PDF sur n'importe quel machine (si possible) à partir d'un exploreur que j'ai créer sur base d'un objet FILELISTBOX.
>
> Merci pour réponse.
|