Conversion de .tif à .doc

Private Sub ConvPDF(filename As String)
'Filename est le nom complet Ex: "C:\........ .TIF"

Dim AcroApp         As CAcroApp
Dim AVDoc           As CAcroAVDoc
Dim PDDoc           As CAcroPDDoc

Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")

Call AVDoc.Open(filename, "")
Set AVDoc = AcroApp.GetActiveDoc

If AVDoc.IsValid Then
    Set PDDoc = AVDoc.GetPDDoc
    PDDoc.SetInfo "Title", "Mettre un Titre"
    PDDoc.SetInfo "Author", "Mettre un Auteur" 
    PDDoc.SetInfo "Subject", "Mettre un Sujet"
    PDDoc.SetInfo "Keywords", "Mettre un mot Clef"
    If PDDoc.Save(1 Or 4 Or 32, Mid(filename, 1, Len(filename) - 4) & ".pdf") <> True Then
         MsgBox "Impossible d'utiliser le fichier " & filename
    End If
    PDDoc.Close
End If
'Ferme le PDF
AVDoc.Close True
AcroApp.Exit
'Remise à Zéro d'élèment
Set PDDoc = Nothing
Set AVDoc = Nothing
Set AcroApp = Nothing

End Sub