Ouvrir un fichier ppt à partir de VBA
Résolu/Fermé
thier2016
Messages postés
4
Date d'inscription
lundi 6 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016
-
6 juin 2016 à 14:57
thier2016 Messages postés 4 Date d'inscription lundi 6 juin 2016 Statut Membre Dernière intervention 7 juin 2016 - 7 juin 2016 à 16:57
thier2016 Messages postés 4 Date d'inscription lundi 6 juin 2016 Statut Membre Dernière intervention 7 juin 2016 - 7 juin 2016 à 16:57
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
A voir également:
- Ouvrir un fichier ppt à partir de VBA
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier 7z - Guide
2 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
6 juin 2016 à 18:01
6 juin 2016 à 18:01
Bonjour,
Comme ceci:
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
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
7 juin 2016 à 10:49
7 juin 2016 à 10:49
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
thier2016
Messages postés
4
Date d'inscription
lundi 6 juin 2016
Statut
Membre
Dernière intervention
7 juin 2016
7 juin 2016 à 16:57
7 juin 2016 à 16:57
OK je vois bien merci beaucoup !
7 juin 2016 à 08:45
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
7 juin 2016 à 08:52
Comment faire à ce niveau? Merci