Ouvrir fichier pdf

Signaler
Messages postés
67
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
13 octobre 2010
-
Messages postés
15
Date d'inscription
mercredi 1 avril 2009
Statut
Membre
Dernière intervention
10 avril 2011
-
Bonjour à tous
Comment pouvoir ouvrir un fichier pdf via un boutton sur la forme.
Il faut noter que le fichier pdf est dans le méme dossier du projet.
J'ai éssayé quelques codes que j'ai trouvé ici mais ils n'ont pas marché.
Merci

5 réponses

Messages postés
102
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
16 août 2012

Bonjour,

Avec vb.net, il faut écrire :

Imports System.IO

' code associé à l'action du clic sur le bouton
sub ouvrir()
if file.exists(Application.StartupPath & "" & "fichier.ext") then
process.start(Application.StartupPath & "" & "fichier.ext")
else
exit sub()
end if
end sub

@+
PS : Application.StartupPath est le chemin où se situe le .exe de l'application ;-)
Messages postés
67
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
13 octobre 2010

Merci TiDjool pour la réponse mais moi je travail sur vb6.
Maintenant j'ai stocké un fichier pdf sur une base de donnée access et je voudrais savoir comment l'appeler via un boutton sur la forme?
merci
Messages postés
22
Date d'inscription
vendredi 31 octobre 2003
Statut
Membre
Dernière intervention
2 novembre 2010

J'ai posé la même question il y a quelques temps.
Tu as la réponse ci-dessous. La méthode donnée fonctionne pour tous types de fichiers à partir du moment où ils sont associés à une application par défaut.

Lien vers le post.
Messages postés
15
Date d'inscription
mercredi 1 avril 2009
Statut
Membre
Dernière intervention
10 avril 2011

bn j'ai une reponse pour ça j'esper quelle sera utile pr toi
on error goto ETQ_errFichierOuvrir
with cd '(cd c'est command dialog)
.CancelError=true
.flags=cdlofnfileMustExist or cdOfnhidereadonly or cdlOfnnoReadOnlyReturn
.filter="fichier PDF (*.pdf)|*pdf"
.filterIndex=1
.dialogTitle="ouvrir un fichier pdf"
.initDir=app.Path
.showOpen
acroPDF1.src= .fileName
end with
exit sub
etq_ErrFichierOuvrir
Messages postés
15
Date d'inscription
mercredi 1 avril 2009
Statut
Membre
Dernière intervention
10 avril 2011

n'oublie pas d'ajouter le composant coomand dialog et le composant de PDf ;) bn courage