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