Piloter acrobat reader depuis excel et vba

5/5 (12 avis)

Vue 30 606 fois - Téléchargée 2 571 fois

Description

Exemple d'utilisation du composant OCX AcroPDF (AcrobatReader).
Permet d'ouvrir un document pdf dans une Form

Source / Exemple :


Sub LoadPDF(FicPdf As String, NoPage As Integer)
'Création de l'objet AcroPdf dans fenetre 'PdfForm'
Set mObjPDF = PdfForm.Controls.Add("AcroPDF.PDF.1", "VisuPDF")
ch = mObjPDF.src
'récupère la version d'acrobat
ver = mObjPDF.GetVersions
'Paramétrage de l'objet sur la fenetre
With PdfForm.Controls("VisuPDF")
  'rend le composant Visible
  .Visible = True
  'fixe la hauteur du composant par rapport a la fenetre
  .Height = PdfForm.Height - 20
  'fixe la largeur du composant par rapport a la fenetre
  .Width = PdfForm.Width - 5
'mObjPDF.setViewRect 0, 0, 650, 580
End With
'Paramétrage de l'objet AcroPdf
With mObjPDF
  .src = FicPdf 'Nom du fichier ou lien URL
  '.LoadFile ("c:\nomfichier.pdf")
  .setShowScrollbars (True) 'Affiche l'assenceur True/False
  .setShowToolbar (True) 'Affiche la barre d'outil True/false
  .setPageMode ("none") 'Determine le mode d'affichage none/bookmarks/thumbs
  .setLayoutMode ("SinglePage") 'Determine le type d'affichage DontCare/SinglePage/OneColumn/TwoColumnLeft/TwoColumnRight
  .setCurrentPage (NoPage) 'Numéro de la page a afficher
  .setView ("Fit") 'Fixe la méthode d'affichage Fit/FitH/FitV/FitB/FitBH/FitB
  '.setZoom (100) 'Determine de niveau de zoom
End With
'Affiche la feuille
PdfForm.Show
End Sub

Sub essai()
  LoadPDF "http://www.adobe.com/devnet/acrobat/pdfs/iac_api_reference.pdf", 1
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
LaMouche39 Messages postés 7 Date d'inscription samedi 15 mars 2003 Statut Membre Dernière intervention 31 janvier 2013
31 janv. 2013 à 15:18
Bonjour,
Je déterre un peu le Post ! qui m'a bien servi

En plus des différents ordre cités dans l'exemple , est-ce qu'il existe un ordre pour faire la rotation de la vue (Comme avec clic droit /option Rotation)
genre .SetRotateLeft ou SetRotateRight un truc comme ça ?

Merci d'avance aux spécialistes !
peshko60 Messages postés 3 Date d'inscription mercredi 22 août 2007 Statut Membre Dernière intervention 5 décembre 2011
5 déc. 2011 à 12:49
Bonjour,

Le code initial (récupéré à partir du fichier exemple) fonctionne parfaitement bien sur mon poste. Mais sur celui des collègues cela ne fonctionne pas, au lieu d'afficher le fchier une page planche s'affiche (comme s'il y avait une difficulté d'accéder au fichier). j'ai vérifié je suis en mode protégé Acrobat Reader X mais je n'arrive pas à activer ce mode protégé sur les autres ordi (message relatif à la configuation système!).

Est-ce que cela peut provenir de droits différents (encore que je suis le même user lambda que les autres) ou de versions d'acrobat?

Si quelqu'un a une idée cela sera génial.

Merci d'avance
pascalbidouille Messages postés 1 Date d'inscription jeudi 27 août 2009 Statut Membre Dernière intervention 10 août 2011
10 août 2011 à 14:28
Bonjour,

J'essaie d'utiliser ce code mais j'ai une erreur "Can't find project or library" sur PdfForm
Faut il faire une déclaration supplémentaire pour utiliser ces contrôles ?

Merci
dedederidiny Messages postés 42 Date d'inscription dimanche 1 février 2004 Statut Membre Dernière intervention 15 mai 2011
15 mai 2011 à 18:00
re bonjour,
je n'y arrive toujours pas
de l'aide ou un fichier exemple me sauverais
merci d'avance
dedederidiny Messages postés 42 Date d'inscription dimanche 1 février 2004 Statut Membre Dernière intervention 15 mai 2011
5 mai 2011 à 19:45
bonsoir,
la taille du composant de visualisation du pdf ne s'adapte pas a la taille de l'USF.
Comment faire, merci d'avance
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.