J'ai fait ça au cas où des personnes pourraient être intéressé par la soluce...
Public Function RequestVersion5Pdf() As Boolean
'recherche sur la version d'acrobat distiller
'si version 5, true, sinon false
Dim WordObject As Object
Dim Resul As String
Resul = ""
Set WordObject = CreateObject("Word.Application" ) 'cree une application word
On Error Resume Next
Resul = WordObject.System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Acrobat.exe", "Path" )
On Error GoTo 0
WordObject.Quit
Set WordObject = Nothing
RequestVersion5Pdf = Resul <> ""
End Function
---------------
Il suffit de me dire de me taire...