Ouvrir et imprimer un fichier PDF

cs_dhardy Messages postés 45 Date d'inscription lundi 23 juin 2003 Statut Membre Dernière intervention 24 février 2009 - 23 juin 2003 à 16:06
darkphana Messages postés 28 Date d'inscription mardi 4 mai 2004 Statut Membre Dernière intervention 12 octobre 2004 - 4 mai 2004 à 16:27
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.

2 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
23 juin 2003 à 22:55
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)
0
darkphana Messages postés 28 Date d'inscription mardi 4 mai 2004 Statut Membre Dernière intervention 12 octobre 2004
4 mai 2004 à 16:27
:-)
bonjour
moi aussi je voudrai pouvoir ouvrir un fichier .pdf d'acrobat reader en passant pas un explorateur que j'ai créer alors si vous avez réussi pouvez vous m'aider et même me passer le proqramme que vous avez fait merci d'avance voila mon e-mail : phana_tang@yahoo.fr
0
Rejoignez-nous