- Ce sujet est vide.
-
Sujet
-
Bonjour,
Dans certains cas, lorsque l’on veut quitter Acrobat, il ne se ferme pas, il n’y qu’en passant par le gestionnaire de tache que l’on y arrive ](*,) .
Apparemment, ca arrive le plus souvent quand on ouvre un .pdf depuis le net ou via ma base de données mais pas systématiquement .
Dans ma base j’ai utilisée ce code :
Public Function AcrobatOuvert() As Boolean
On Error GoTo err:
Set AcroApp = GetObject(, “AcroExch.App”)
err:
If err.Number <> 0 Then
AcrobatOuvert = False
Else
AcrobatOuvert = True
End If
End Function
If Module1.AcrobatOuvert = True Then
Set AVDoc = GetObject(, “AcroExch.AVDoc”)
AVDoc.Open Adressecomp, Adressecomp
Else
Set AcroApp = CreateObject(“AcroExch.App”)
AcroApp.Show
Set AVDoc = CreateObject(“AcroExch.AVDoc”)
AVDoc.Open Adressecomp, Adressecomp
End If
Set AVDoc = AcroApp.GetActiveDoc
:scra:
Avez vous déjà rencontré ce pb ?
Comment l’avez vous résolu ?
Dans mon code, voyez vous quelque chose qui ne va pas ?
Cordialement
- Vous devez être connecté pour répondre à ce sujet.