Bonjour.

Je cherche à piloter Adobe Acrobat en VBA

Plus précisément, après avoir ouvert le fichier spécifié à l'aide du code ci-dessous, je souhaite enregistrer le PDF en JPG (à moins qu'il n'y ait une solution pour afficher le PDF directement dans un état, mais ça, je n'y arrive pas, malgrès le code ci dessous en commentaire)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Option Compare Database
 
'utilise la fonction pour ouvrir un fichier (word, pdf, excel, html...) dans son application
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
Private Sub Report_Activate()
'Récupère le chemin de la base et y ajoute le dossier dans lequel on place les CCPU et le n° CCPU
Dim chem
chem = CurrentProject.Path & "\ccpu\" & Me.txtN°_CCPU.Value & ".PDF"
'Affiche le fichier dans son appli source (utilise la fonction en en-tête)
ShellExecute Me.hwnd, "open", chem, "", CurrentProject.Path, 1
 
'Affiche le bon ccpu dans l'objet OLE Acrobat
'OleAfficheCCPU.Class = "AcroExch.Document.7"    ' Définit le nom de classe.
' Spécifie le type d'objet.
'OleAfficheCCPU.OLETypeAllowed = acOLEEither
' Spécifie le fichier source.
'OleAfficheCCPU.SourceDoc = chem
' Spécifie les données avec lesquelles créer le lien.
'OleAfficheCCPU.SourceItem = "R1C1:R5C5"
' Crée l 'objet lié.
'OleAfficheCCPU.Action = acOLECreateLink
' Ajuste la taille du contrôle.
'OleAfficheCCPU.SizeMode = acOLESizeZoom
 
 
End Sub

Merci

Cordialement

Bruno