Ouvrir un fichier ppt à partir de VBA

Résolu
thier2016 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
thier2016 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
thier2016 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
thier2016 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
0
thier2016 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
OK je vois bien merci beaucoup !
0