Ouverture d'un PPS (powerPoint)

Le
pag
Bonjour,

J'aimerais pouvoir ouvrir un document PPS depuis un bouton dans un
formulaire Access.

Je suis arrivé à ouvrir powerpoint, mais le document s'ouvre en mode
modification, mais j'aimerais l'ouvrir en exécution seulement.

Pourrait-on m'aider pour trouver le module pour l'exécution.

Merci d'avance, et meilleures salutations

pgz
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #6404261
Bonjour,

Utilise l'api ShellExecute

Ca donnerait, à copier dans le module du formulaire :

Option Compare Database
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1

Private Sub Commande0_Click()
Dim CheminFichier As String
'Adapter le chemin et le fichier
CheminFichier = "C:Le Tour de France 2008.pps"
ShellExecute Me.hwnd, vbNullString, _
CheminFichier, vbNullString, _
"C:", SW_SHOWNORMAL
End Sub

Bonjour,

J'aimerais pouvoir ouvrir un document PPS depuis un bouton dans un
formulaire Access.

Je suis arrivé à ouvrir powerpoint, mais le document s'ouvre en mode
modification, mais j'aimerais l'ouvrir en exécution seulement.

Pourrait-on m'aider pour trouver le module pour l'exécution.

Merci d'avance, et meilleures salutations

pgz




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Michel_D
Le #6405181
Bonjour,

"pag"
Bonjour,

J'aimerais pouvoir ouvrir un document PPS depuis un bouton dans un
formulaire Access.

Je suis arrivé à ouvrir powerpoint, mais le document s'ouvre en mode
modification, mais j'aimerais l'ouvrir en exécution seulement.

Pourrait-on m'aider pour trouver le module pour l'exécution.

Merci d'avance, et meilleures salutations

pgz


Code à positionner sur le click de ton bouton.

Dim oShell As Object
Set oShell=CreateObject("WScript.Shell")
oShell.Run "TonCheminTonFichier.pps"
Set oShell=Nothing

Publicité
Poster une réponse
Anonyme