Lancer Acrobat

Le
xavier
Bonjour,

J'ai cr des objets qui me permettent de lancer Word et
Excel partir d'Access avec les manips suivantes:

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")

Dim appXl As Excel.Application
Set appXl = CreateObject("Excel.Application")

Afin d'ouvrir des fichier pdf, j'aurai besoin de lancer
Acrobat Reader de la meme facon.
Est-ce qu'il est possible de faire une manip de la sorte?

Merci d'avance qui pourra m'informer
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gaël Schmitt [MS]
Le #5005311
Bonjour,

Pour reprendre les termes de Raymond :
"lorsque tu auras installé acrobat reader, ne te soucis pas de savoir où il
est placé, lances la lecture de ton fichier pdf aveic l'api ShellExec que tu
trouveras sur la page: http://access.seneque.free.fr/executer_selon_ext.htm
"

Gael.

"xavier" news:157b401c41d71$1e1e03d0$
Bonjour,

J'ai créé des objets qui me permettent de lancer Word et
Excel à partir d'Access avec les manips suivantes:

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")

Dim appXl As Excel.Application
Set appXl = CreateObject("Excel.Application")

Afin d'ouvrir des fichier pdf, j'aurai besoin de lancer
Acrobat Reader de la meme facon.
Est-ce qu'il est possible de faire une manip de la sorte?

Merci d'avance à qui pourra m'informer
xavier
Le #5005041
Bonjour Gael,

Merci de l'info, ca a l'air interessant.

Mais par contre Access me repond à chaque fois qu'il ne
trouve pas le fichier.

J'ai tout copié tel quel, il y a peut-etre quelque chose
à modifier?

Est-ce que l'appli fonctionne correctement chez toi?

-----Message d'origine-----
Bonjour,

Pour reprendre les termes de Raymond :
"lorsque tu auras installé acrobat reader, ne te soucis
pas de savoir où il

est placé, lances la lecture de ton fichier pdf aveic
l'api ShellExec que tu

trouveras sur la page:
http://access.seneque.free.fr/executer_selon_ext.htm

"

Gael.

"xavier" le message de

news:157b401c41d71$1e1e03d0$
Bonjour,

J'ai créé des objets qui me permettent de lancer Word et
Excel à partir d'Access avec les manips suivantes:

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")

Dim appXl As Excel.Application
Set appXl = CreateObject("Excel.Application")

Afin d'ouvrir des fichier pdf, j'aurai besoin de lancer
Acrobat Reader de la meme facon.
Est-ce qu'il est possible de faire une manip de la sorte?

Merci d'avance à qui pourra m'informer


.



Raymond [mvp]
Le #5004901
Bonjour xavier.

tu places l'api dans un module standard tel quel.
dans ton formulaire tu mets tel quel:

Private Sub Commande0_Click()
Dim Réponse As Variant
Réponse = OpenfileExtend("C:Documents and SettingsRaymondMes
documentsessais1.pdf", Maximum)
If Not Réponse = True Then
MsgBox Réponse
End If
End Sub

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"xavier" news:1588501c41d7e$e81bfe50$
Bonjour Gael,

Merci de l'info, ca a l'air interessant.

Mais par contre Access me repond à chaque fois qu'il ne
trouve pas le fichier.

J'ai tout copié tel quel, il y a peut-etre quelque chose
à modifier?

Est-ce que l'appli fonctionne correctement chez toi?
Publicité
Poster une réponse
Anonyme