Bonsoir,
Cela ne fonctionne pas !!! :mur:
Bon, bizarrement ou pas en fait vu que je ne connais pas les rouages d’Acrobat, il faut que le fichier soit ouvert pour que cela fonctionne.
Normalement, lors de l’ouverture des objets Acrobat, il s’ouvre en arrière plan, mais ce soir avec mes essais cela ne veut pas.
Donc avant une intégration fonctionnelle dans Access, voici le code fonctionnel sans avoir pousser plus loin :
Dim PDDoc As Object
Dim JSO As Object
Dim sFichier As String
Set PDDoc = CreateObject(« AcroExch.PDDoc »)
sFichier = « C:UsersjeromeDocumentsFI_BD_FO.pdf »
ShellExec (« C:UsersjeromeDocumentsFI_BD_FO.pdf »)
If PDDoc.Open(sFichier) Then
Set JSO = PDDoc.GetJSObject
Debug.Print JSO.Aplatir()
PDDoc.Close
Set JSO = Nothing
End If
Set PDDoc = Nothing
End Sub
Encore merci à tous et surtout à bebarth.
:bonjour: