Ouverture d'un fichier ppt dependant d'un enregistrament sous access (sans ole)

0/5 (1 avis)

Snippet vu 12 588 fois - Téléchargée 48 fois

Contenu du snippet

Quand on veut lier un nombre important de fichiers Powerpoint à des enregistrements dans un formulaire Access, l'utilisation
d'objet dépendant OLE devient fastidieuse.
Il faut, pour utiliser le code comme procédure évenementielle d'un bouton de commande, avoir défini un champ "Chemin",
ou un champ "Nom_du_fichier" puis un champ "Chemin" défini dans une requête comme égal à C:\...\...\[Nom_du_Fichier].
Les lignes en vert ne sont pas des commentaires mais font bien partie du code; désolé, c'est mal passé!!!

Source / Exemple :


Private Sub Commande243_Click()

Dim pptobj As Object
Dim holder As Long, present As Object
Dim NomFichier As String
NomFichier = Me!Chemin

MsgBox "N'oubliez pas de refermer PowerPoint après la lecture du document"

holder = Shell("c:\Program Files\Microsoft Office\Office\Powerpnt.exe")

Set pptobj = CreateObject("PowerPoint.Application")
Set present = pptobj.Presentations.Open(Me!Chemin)

End Sub

Conclusion :


En théorie ça marche, si des gens sont intéressés, j'ai des codes similaires pour Word et Excel.

A voir également

Ajouter un commentaire Commentaire
cs_Viviane Messages postés 26 Date d'inscription mardi 26 février 2002 Statut Membre Dernière intervention 20 mars 2009 3
18 mars 2002 à 21:24
Je suis très interressée par le code concernant Excell.
J'ai besoin de lier un ou plusieurs fichiers Excell (Comme piéces jointes) à chaque enregistrement Access.
J'ai essayé avec un richtext et un champ OLE.
De plus je ne sais pas quel type de champs déclarer sous Access pour les charger (binaire, memo ??)

Merci 1000 fois pour votre aide !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.