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 196 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

Commentaires

Commenter la réponse de cs_Viviane

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.