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