Piloter acrobat reader depuis excel et vba

Soyez le premier à donner votre avis sur cette source.

Vue 28 522 fois - Téléchargée 2 500 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
Messages postés
7
Date d'inscription
samedi 15 mars 2003
Statut
Membre
Dernière intervention
31 janvier 2013

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 !
Messages postés
3
Date d'inscription
mercredi 22 août 2007
Statut
Membre
Dernière intervention
5 décembre 2011

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
Messages postés
1
Date d'inscription
jeudi 27 août 2009
Statut
Membre
Dernière intervention
10 août 2011

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
Messages postés
42
Date d'inscription
dimanche 1 février 2004
Statut
Membre
Dernière intervention
15 mai 2011

re bonjour,
je n'y arrive toujours pas
de l'aide ou un fichier exemple me sauverais
merci d'avance
Messages postés
42
Date d'inscription
dimanche 1 février 2004
Statut
Membre
Dernière intervention
15 mai 2011

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.