Pb programme pour Ouvrir fichier PDF avec VB

Question

Pour ouvrir un fichier PDF j'utilise l'API shellexecute 
le problème c'est que lors de lea déclaration de la fonction

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

Le programme me marque un problème de compilation comme quoi l'instruction Declare ne sont pas autorisé commme menbre Public de module objet.

Pouvez vous m'aider à faire fonctionner mon programme ,merci.

Si vous avez d'autre prog pour ouvrir un fichier pdf, à part avec la commande shell (car j'ai des espaces dans le nom des fichier à ouvrir) envoyer les moi, merci.

BZY1 · Answer

moi je n'utilise pas d'api pour &#231;a , j'&#233;cris:

num=freefile

Open "c:\VoirPdf.bat" For Output As #num   '&#233;crit dans un fichier .bat
      Write #num,"c:\mon pdf.pdf"                    'le chemin du pdf
Close #num

'puis dans command1

Sub command1_click()
    aa=Shell("c:\VoirPdf.bat")                         'execute le .bat
End sub

Normalement &#231;a marche m&#234;me si c'est un peu lourd.....

tbbuim1 · Answer

'Dans un module

Public Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As
Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As
String, ByVal Other2 As String, ByVal Param As Long) As Long
'Utilisation de la commande

ShellExecuteA 0, "Open", "C:\monpdf.pdf", "", "", 10
TBBUIM

vince75013 · Answer

merci pour les réponces j'ai réussi a me débrouiller avec un api
mais j'arrive pas à fermer le fichier que j'ai ouvert si vous avez une solus.
merci

Pb programme pour Ouvrir fichier PDF avec VB

3 réponses

Discussions similaires