begin process at 2012 02 13 11:54:54
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

OLE, DDE, Automation

 > PILOTER ACROBAT READER DEPUIS EXCEL ET VBA

PILOTER ACROBAT READER DEPUIS EXCEL ET VBA


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :OLE, DDE, Automation Classé sous :VBA, Excel, Acrobat, AcroPDF, PDF Niveau :Débutant Date de création :23/02/2009 Date de mise à jour :23/02/2009 22:11:19 Vu / téléchargé :10 146 / 1 042
Auteur : jpduf

Ecrire un message privé
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • 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
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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • Macro_pdf.xlsTélécharger ce fichier [Réservé aux membres club]47 104 octets

Télécharger le zip


 Historique

23 février 2009 22:11:19 :
Ajout lien http://www.adobe.com/devnet/acrobat/pdfs/iac_api_reference.pdf dans le source

 Sources de la même categorie

IMPORTATION DANS EXCEL DE DONNÉES D'UNE SOURCE AS400 (I5, IS... par Godzestla
Source avec Zip Source avec une capture Source .NET (Dotnet) EXCELDOTNET : PROGRAMMER EXCEL EN DOTNET SANS VBA NI VSTO par Patrice99
Source avec Zip Source avec une capture AJOUTEZ VOTRE COMPLÉMENT À VISUAL BASIC 6 SANS ÊTRE CONTRAIN... par VBsearch
Source avec Zip Source avec une capture INTERCEPTER DES APPELS DE METHODE (SURCHARGE DE VTABLE) par Renfield
Source avec Zip Source avec une capture CYBER COUNTER V2 par makaveli244
Toutes les sources de la catégorie OLE, DDE, Automation

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture TOURS DE HANOI (JEU) SOUS EXCEL (VBA) par rtoukkys
METTRE EN FORME DU TEXTE WORD DEPUIS EXCEL EN VBA par phanoulevoyou
Source avec Zip Source avec une capture [VBA VB6] FORCER L'OUVERTURE D'UN COMBOBOX par lermite222
Source avec Zip Source avec une capture [VBA] EXCEL - DÉMO - TIRER 1, 2 OU 3 DÉS + APIS par lermite222
Source avec Zip Source avec une capture DEMINEUR SOUS EXCEL par rtoukkys

Commentaires et avis

Commentaire de dhardy le 24/02/2009 09:48:57

Bonjour,

Impeccable, je cherchais justement l'information il y a peu.
Où peut-on trouver l'OCX AcroPDF ?
Est-ce qu'il est par défaut installer avec Acrobat Reader ?

Merci

Didier

Commentaire de jpduf le 24/02/2009 11:01:39

Bonjour,

A ma connaissance cet OCX est installé par acrobat reader depuis la version 7.

Slts

JP

Commentaire de simodel le 19/06/2009 14:53:53 10/10

Très bien.

Commentaire de octiz le 28/06/2009 09:41:51

ça ne marche pas il y a un bug

Commentaire de Le Pivert le 19/11/2009 14:23:17

Pour que ce programme fonctionne quelques modifications sont necessaires:
Mettre dans l'userform, un label: Lblfichier et un bouton: cmdopen ensuite le code suivant dans l'userform:
Private Sub cmdopen_Click()
Lblfichier = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf")
essai
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
et modifier le module comme suit:
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, 700, 600
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 (PdfForm.Lblfichier), 1
End Sub
de cette manière vous pouvez ouvrir les fichiers PDF qui sont dans votre PC
@+ Le Pivert

Commentaire de degraff63 le 08/12/2010 15:19:14

Bonjour,

Merci pour ton source. Impec !
Comment rechercher maintenant dans le PDF. En fait, je dois extraire une chaine comprise entre 2 mots connus, sur la 1ère page .

Commentaire de jpduf le 08/12/2010 21:17:44

Bonjour,

Les fonctions de la DLL "AcroPDF" ne permettent de faire des recherches sur les chaines de caractères contenues dans le PDF. Tout du moins dans les versions 7.x et 8.x. Voir la documention de la version 9.1 si les fonctions de recherche ont été implémentées. La doc est dispo a l'adresse =>  http://download.macromedia.com/pub/developer/acrobat/sdk/9/sdk91_v2_win.zip

Slts

Commentaire de dedederidiny le 05/05/2011 19:45:16

bonsoir,
la taille du composant de visualisation du pdf ne s'adapte pas a la taille de l'USF.
Comment faire, merci d'avance

Commentaire de dedederidiny le 15/05/2011 18:00:35

re bonjour,
je n'y arrive toujours pas
de l'aide ou un fichier exemple me sauverais
merci d'avance

Commentaire de pascalbidouille le 10/08/2011 14:28:41

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

Commentaire de peshko60 le 05/12/2011 12:49:58

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

PDF en VBA Excel [ par p022289 ] EricBonjour, je dois mettre à jour un site intranet à partir d'Excel et Acrobat 6 ou PDF 995, j'avais fais un truc qui marchait bien en VBA mais depui ouvrir un fichier pdf en vba sous excel [ par lebpoussin ] voila je dois créer une macro sous excel qui lorsque que l'on clique dessus ouvre un fichier pdf se trouvant sous C:\. Je n'arrive pas à trouver le co imprimer un PDF à partir de VBA sous EXCEL [ par malloy ] Bonjour ,Je suis entrain de creer une macro qui permet de gérer une liste de codes (sous excel) associer à des fichiers pdf.Je voudrais afficher pdf dans userform (vba excel) [ par 37224Scan ] Bonjour, j'aimerai afficher un fichier pdf (c:\lambda.pdf) dans une userform  en VBA avec excel.Je voudrais utiliser la dll "acropdf.dll" de acrobat r Impression fichier pdf depuis Excel vba [ par Col ] Bonjour,Comment lancer l'impression d'un fichier PDF depuis Excel en VBA ?Merci. [VBA-Excel] Bouton Parcourir [ par apache88 ] Bonjour,J'aurais besoin de créer un bouton excel permettant de sélectionner un répertoire qui sera ensuite écrit dans une cellule. J'ai le code suivan VBA Excel - Voir première page d'un PDF [ par Tenanio ] Bonjour à tous,J'ai créé une base recensant tous les fichiers d'un répertoire avec leur adresse. Ce ne sont que des .pdf et j'aimerais que lorsque l'o PDF [ par xaeris ] bonjour tout le monde, je suis débutant en VBA j'aimerais savoir s'il est possible de générer un pdf a partir d'Excel.. Je m'explique, je vais génére VBA pour Excel Generer un pdf [ par rouzb ] Bonjour, Je travaille sur excel 2003. J'essaie de créer une macro qui permette d'enregistrer (imprimer) la feuille Excel voulue en PDF. J'ai essayé la Créer un pdf en VBA excel [ par lenylett ] Bonjour, Je suis vraiment au bout du rouleau !!! Je recherche depuis longtemps un bout de code VBA pour créer sur Excel un pdf (dont j'aurai à défini


Nos sponsors


Sondage...

Comparez les prix


Acer Liquid (noir) (XP.H480Q.013)
Entre 300€ et 346€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Photo aérienne de Saintes Maries de la Mer
Photo Puerto de Valldemossa 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)