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