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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 232 fois - Téléchargée 47 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 -
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.