Ouvrir un fichier ppt à partir de VBA
Résolu
thier2016
Messages postés
4
Statut
Membre
-
thier2016 Messages postés 4 Statut Membre -
thier2016 Messages postés 4 Statut Membre -
Bonjour,
Bonjour J'aimerai bien ouvrir un fichier en ppt à partir de VBA.
En plus si le fichier change de répertoire comment le retrouver juste avec son nom.
Merci
Bonjour J'aimerai bien ouvrir un fichier en ppt à partir de VBA.
En plus si le fichier change de répertoire comment le retrouver juste avec son nom.
Merci
2 réponses
-
Bonjour,
Comme ceci:
Option Explicit Dim Fichier As Variant 'allez dans Outils, Références et cochez: Microsoft PowerPoint ... Object library Private Sub cmdopen_Click() 'nom du commandbutton à adapter 'On cherche le chemin Fichier = Application.GetOpenFileName( _ "Fichiers Présentation (*.ppt;*.pps),*.ppt;*.pps") If Fichier = False Then Exit Sub Test End Sub Sub Test() Dim ppt As PowerPoint.Application Dim Pres As PowerPoint.Presentation 'On ouvre la présentation Set ppt = CreateObject("PowerPoint.Application") ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur) Set Pres = ppt.Presentations.Open(Filename:=Fichier) Me.Hide 'On ferme l'userForm End Sub
-
Le code que j'ai mis se lance à partir d'un Commanbutton mis dans un UserForm. Si ce n'est pas le cas il faut supprimer cette ligne :
Me.Hide 'On ferme l'userForm
