Ouvrir PDF avec un bouton dans un formulaire

Signaler
Messages postés
23
Date d'inscription
jeudi 1 mars 2012
Statut
Membre
Dernière intervention
30 juillet 2012
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,

J'essaie d'ouvrir un fichier PDF par un bouton dans un formulaire mais ça ne fonctionne pas. Je cherche à ouvrir un fichier qui est dans un text box (le lien du fichier). le champs contient un chemin comme "D:\doc pdf\acces doc"

Voici mon code:

Private Sub Commande32_Click()
Dim fichier as String
Dim executable As String

fichier = champ_lien 'le lien est "D:\doc pdf\acces doc\un fichier.pdf"
executable = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"

Shell executable & " " & fichier, vbNormalFocus
End Sub

Acrobat s'ouvre mais pas le fichier. Pour avec ceci ça fonctionne:

Pourtant avec ceci ça fonctionne:

Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe D:\doc pdf\acces doc\test.pdf", vbNormalFocus)

Merci de votre aide.

4 réponses

Messages postés
164
Date d'inscription
samedi 11 décembre 2004
Statut
Membre
Dernière intervention
14 août 2013
1
Bonjour,
Et en essayant ceci :
(une Form avec un contrôle Webbrowser)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
REM ouvrir un fichier PDF dans une Form
WebBrowser1.Navigate("C:\chemin\Esai.pdf")

End Sub

Pour ouvrir le fichier dans Acrobat, on aurait :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
REM ouvriri un fichier PDF dans Acrobat
System.Diagnostics.Process.Start("C:\chemin\Essai.pdf")

End Sub
Messages postés
23
Date d'inscription
jeudi 1 mars 2012
Statut
Membre
Dernière intervention
30 juillet 2012

Y'a rien qui fonctionne dans tout ça!!
Messages postés
164
Date d'inscription
samedi 11 décembre 2004
Statut
Membre
Dernière intervention
14 août 2013
1
Bonjour,
(un formule de politesse n'est pas de trop dans ce monde de brutes)

Rien ne fonctionne ?
Alors, tu as fait un erreur qelque part, puisque cela fonctionne chez moi.
- le chemin et le nom du fichier sont-ils bons ?
- as-tu recopié exactement l'instruction : WebBrowser1.Navigate("C:\chemin^Essai.pdf") avec un nom de fichier adéquat ?
- etc, etc...

A+
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
224
Bonjour,
C'est à croire (s'il a eu le réflexe de donner un chemin existant sur sa machine) :
- qu'en ce qui concerne la méthode navigate : il n'a pas inséré de contrôle WebBrowser
- qu'en ce qui concerne l'autre méthode, aucune appli n'est associée à l'extension .pdf

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient