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