Ouvrir un fichier ppt à partir de VBA Résolu

Question

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

Configuration: Windows 7 / Mozilla 11.0

cs_Le Pivert · Accepted Answer

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

cs_Le Pivert · Answer

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

Ouvrir un fichier ppt à partir de VBA

2 réponses

Votre réponse

Newsletters