AcroExch.AVDoc - Problème ouverture PDF en VBA

Bonjour à tous,

Nous sommes passés récemment sur Office 365 et Acorbat Pro DC et depuis j'ai plus aucune macro qui fonctionne correctement.

Ci-dessous un exemple simple d'ouverture de fichier, la macro doit ouvrir le fichier test (Remplacer le lien du fichier PDF dans la case D15)

Une fois de temps en temps il m'ouvre le fichier, mais c'est rare et ne comprends pas bien d’où cela peut venir. Avant d'arriver sur la 10.0 Type Librairy d'Adobe cela fonctionnait parfaitement. Le soucis est que beaucoup de mes macros gèrent des ouvertures et que cela est très pénalisant si je dois aller chercher le PDF à chaque fois. J'ai trouvé sur des forums qu'il fallait désactiver les protections d'Adobe mais cela n'a rien changé. Quelqu'un aurait-il une idée ?

Merci.

Bon j'ai cherché un bon moment sur des forums anglais, une belle galère mais j'ai finalement trouvé un code qui fonctionne alors je le partage.

Sub Test_Z()

    Dim Fiche As String
    Dim GApp As Acrobat.CAcroApp
    Dim AVDoc As Acrobat.CAcroAVDoc

    'Définition du chemin
    Fiche = Range("D15") & "\Test.pdf"

    Set GApp = CreateObject("AcroExch.app")
    Set AVDoc = CreateObject("AcroExch.AVDoc")

    AVDoc.Open Fiche, ""
    GApp.Show

    MsgBox "TEST"

    AVDoc.Close (True)
    GApp.Hide

    'Réinitialisation des objets
    Set GApp = Nothing
    Set AVDoc = Nothing

End Sub

Avec cette méthode ça fonctionne à tout les coups.

bonjour,

merci pour ce partage.