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