Ouvrir un fichier ppt à partir de VBA

[Résolu/Fermé]
Signaler
Messages postés
4
Date d'inscription
lundi 6 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016
-
Messages postés
4
Date d'inscription
lundi 6 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016
-
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

2 réponses

Messages postés
7538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
656
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

4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

Messages postés
4
Date d'inscription
lundi 6 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016

Quand je vais dans Outils, Références n'est pas actives pour pouvoir le cochez.
Du coup quand j'exécute le programme , il y a une erreur de compilation à ce niveau
Dim ppt As PowerPoint.Application
Merci pour vos réponses
Messages postés
4
Date d'inscription
lundi 6 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016

J'ai réinitialisé l'exécution et maintenant Références n'est plus grise " Cool" sauf dans votre programme il y a une erreur de compilation : Utilisation incorrecte du mot clé Me
Comment faire à ce niveau? Merci
Messages postés
7538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
656
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

Messages postés
4
Date d'inscription
lundi 6 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016

OK je vois bien merci beaucoup !