Discussion :

[mathesna]

Bonjour! Je suis un étudiant en traduction et je bosse souvent sous access.

Je suis en train de développer une base pour un projet de dico terminologique et dans mon menu principal j'ai besoin d'insérer un bouton qui puisse ouvrir une présentation Power Point. Le fichier de la présentation se trouve dans le même dossier que la base.

Quelqu'un saurait-it m'aider?

Merci d'avance

Mathesna

[stéphane_ais2]

Bonjour,

Peut-être que tu peux regarder dans la FAQ du côté de l'API ShellExecute ...

SE

[Heureux-oli]

Avec un HyperLink, aussi .

[mathesna]

J'ai essayé mais je ne suis pas arrivé à faire fonctionner mon bouton. Comment lui indiquer que le fichier que je veux ouvrir est dans le même répertoire que ma base?

encore merci!

[DurDur]

Bonjour,

Mes connaissances sont assez restreintes, mais j'arrive à ouvrir un fichier WORD.
Peut être qu'il faut adapter cette méthode pour POWER POINT.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim wdapp As Object
Set wdapp = CreateObject("word.application")
With wdapp
wdapp.Visible = True
wdapp.Documents.Open "chemin complet du doc"
End With
Set wdapp = Nothing

Bon travail.

[Tofalu]

Bonjour,

Mes connaissances sont assez restreintes, mais j'arrive à ouvrir un fichier WORD.
Peut être qu'il faut adapter cette méthode pour POWER POINT.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim wdapp As Object
Set wdapp = CreateObject("word.application")
With wdapp
wdapp.Visible = True
wdapp.Documents.Open "chemin complet du doc"
End With
Set wdapp = Nothing

Bon travail.

Certainement pas de l'automation pour un simple powerpoint à ouvrir.

Il suffit d'utiliser l'API shellexecute

http://access.developpez.com/faq/?pa...n#shellexecute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute Me.Hwnd, "open", "fichier.ppt", "", CurrentProject.Path, 1

[mathesna]

J'ai un problème, il y a surement une boulette dans mon code et dans ma logique d'exécution (tout n'est pas claire dans ma tete!! : )

Alors j'ai déclaré la fonction shellexecute (dans le module général, c'est bien ça non?):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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

Puis après j'ai crée un bouton pour ouvrir mon ppt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub btn_etudsuj_Click()
 
 ShellExecute Me.hwnd, "Open", "Termino_Pres_07.ppt", "", CurrentProject.Path, SW_SHOWNORMAL
 
End Sub

J'en suis là et quand je teste le bouton il m"écrit ce message d'erreur:

L'expression Sur clic entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Seuls des commentaires Peuvent apparaître après End Sub, End Function ou End Property.
[...]

voilà. et merci pour ceux qui m'ont déjà aidé!!

[jean-paul lepetit]

Salut,

apparemment ta fonction ShellExecute n'est pas complète

[mathesna]

c'est quoi qui manque?

[Tofalu]

Moi je dirais que tu l'as mise au mauvais endroit. Dans tous les cas, y a des morceaux de codes qui trainent aprés des end sub. Le message d'erreur est pourtant clair.